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Om te 
beginnen 





Eindelijk is het dan zover. De MSX-standaard is doorgebroken. Na veel 
toestanden is er dan eindelijk een standaard computer op de hobby- 
markt verkrijgbaar. Dat werd eens tijd. 

Ook u hebt het verstandige besluit genomen om een MSX computer 
aan te schaffen. Welk merk u ook hebt gekozen, het MSX-logo staat 
voor veel-computer-voor-uw-geld. 

In dit boekje is een keur van MSX truuks en tips opgenomen. Niet zo 
maar wat kleine grapjes maar korte, krachtige stukjes programmatuur 
waar u bij het programmeren heel veel aan kunt hebben. 

Dat uw keuze voor een MSX-oomputer de juiste was, zult u al bladerend 
in dit boekje al heel snel beseffen. Het ongeëvenaarde MSX-basic maakt 
het mogelijk om kort en heel krachtig te programmeren. Programmeer- 
truuks die op een andere computer vaak bladzijden programmeerwerk 
vergen, kunt u in MSX*basic in enkele regels voor elkaar krijgen. 

Zo vindt u in dit eerste deel van de serie MSX truuks en tips voorna- 
melijk korte maar verdraaid krachtige routines. 

Eerst even drie programma’s om de smaak te pakken te krijgen... 

Met het eerste programma bent u voor eens en voor altijd van uw cas- 
setterecorder twijfels af. Het wekker-programma waarschuwt u wan- 
neer u de tijd vergeet omdat u zo ver in uw computerhobby opgaat. 
Eventueel kan de cassetteratel dienen als wekgeluid... 

Succes. 
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Cassette checker 


MSX is op cassette helaas (nog) niet zo sterk! Vaak kan het gebeuren 
dat een op cassette geplaatst programma niet korrekt wordt geladen. 
MSX geeft daar echter geen melding van ! ! ! 

Het volgende programma van drie regels kan boven elk programma 
worden geplaatst en stelt wanneer u het programma uitvoert, op regel 
1 automatisch een kontrolegetal samen. Staat op regel 1 echter al een 
kontrole getal, dan kontroleert dit programma of het kontrolegetal wel 
klopt. Een eventuele fout wordt onmiddellijk gemeld. 

U kunt dit programma het beste als volgt gebruiken: 

U wilt een programma op cassette SAVEn 
1 ; geef een RENUM 65529,65529 in 

2: zorg dat op regel 1 het kontrolegetal gelijk is aan XXXXXXXX 
(8 maal een X) 

3: RUN het programma een keer, onderbreek het en kontroleer of 
op regel 1 een kontroleergetal werd samengesteld 
4: SAVE het programma nu 

U wilt het programma LOADen, kontroleren en gebruiken 

laad het programma en RUN het. Wanneer het programma geen 
”CHECKFOUT IN PROGRAMMA” geeft, kunt u er voor bijna 
100% van overtuigd zijn dat het programma ook werkelijk goed 
geladen is en geen fouten vertoont die aan een LOAD zijn te 
wijten. 

De programmalijst: 

1 REM XXXXXXXX = CONTROLEGETAL 

2 C=0 : FOR 1-32784! TO REEK < 63 170! ) +256*P 
EEK ( 63 1 7 1 ! ) - 1 : C=C+PEEK < I > : NEXT I *' C*=R I GH 
T$ ( STR* ( C+ i 00000000# > » 8 ) i ï F REEK ( 32775 ! ) 
*88 THEN FOR 1=1 TO 8:P0KE 32774 ! +1 #ASC< 
MID$(C$t I ) ) ïNEXT I 

3 FOR 1 = 1 TO 83 IF CHR$ < REEK (32774 ! + !))<> 
MID*<C$»I>1) THEN PRINT "CHECKFOUT IN PR 
OGRAMMA " ■ STOP ELSE NEXT I 

4 C$= " " : 0=0 : I =0 



Wekker 


De computer kan een verslavend ding zijn. Voor je het weet, zit je 
weer tot diep in de nacht mooie figuren te tekenen of prachtige klan- 
kenreeksen te produceren. 

Het volgende programma geeft u de mogelijkheid om in een program- 
ma een wekker in te bouwen. Tussen régel 20 en 9999 kunt u elk 
mogelijk programma opnemen. Op de bovenste regel vraagt de compu- 
ter u bij uitvoering over hoeveel minuten u een waarschuwing wenst. 
Vervolgens wordt bovenin het beeld de tijd naar nul afgeteld waarna 
een geluidssignaal wordt gegeven ert u opnieuw een aantal minuten 
kunt ingeven. 

Het grappige is, dat (behalve op regel 1) uw beeldscherm-indeling niet 
wordt aangetast door deze routine. 

Om deze routine ’kaal’ uit te proberen, kunt u op regel 20 het beste 
even een: 

20 GOTO 20 

opnemen, 

Pas op; tijdens floppy-bevelen, cassettebevelen of tijdens een (LINE) 
INPUT kommando wordt de tijd niet bijgehouden en loopt u vertra- 
ging op! Wanneer u de elders in dit boek vermelde ingaveroutine ge- 
bruikt, loopt de tijd gewoon door tijdens ingave. 

De programmalijst: 

1 REM ************************* 


2 REM * WEKKER * 

3 REM * * 


4 REM ************************* 

6 REM 

10 CLS: SCREEN OïWIDTH 40:KEY OFF.’GÜSUB 1 
0000 s ON INTERVAL =50 GOSUB 10000: INTERVAL 
ON 

10000 C X =P0S < 0 ) : C Y=CSRL I N s I F TI=0 THEN L 
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m-ATE O» o: INPUT "OVER HOEVEEL MINUTEN WA 
ARSHHUWEN "? TI ‘-LOCATE O, O SPRINT SPACE$<4 
0)58 LOCATE CX » CY 8 T I = I NT < T 1*60 ) s RETURN 
10010 TI=TI-18IF T I =0 THEN PLAY " M9999L8 
T i 28S 1 CDEFGFEDCDE F GF E DC " ! LOCATE O » O * PR I N 
T "HET IS TIJD ! ! ! " 5 SF ACE* ( 40-P0S ( O ) ) ï E 
LSE LOCATE O tO 8 PRINT LIS ING ## & ##_&" 
• •• NOG " ? T I \ 60 ï “ M I NUT EN EN " > T I -60* ( T I \ 60 ) 5 
" SECONDEN " ? : LOCATE C X » C Y s RETURN 
10020 IF PLAY (O ) THEN 10020 ELSE RETURN 


ll 



Cassettegeratél 


Het volgende programma maakt gebruik van de aansturing van de cas- 
setterecorder om een ratelend geluid te maken. Misschien leuk om bij 
een spelletje te gebruiken. 

In dit geval houdt het geratel bij een toetsaanslag op. Door de FOR- 
NEXT loop te veranderen, kan het geratel sneller of langzamer worden 
gemaakt. 

De programmalijst: 

10 REM ************************* 

20 REM * CASSETTEMOTQRRATEL * 

30 REM * * 

40 REM ************************* 

50 REM 

60 MOTOR SFOR 1=1 TO lOsNEXT I 5 IF INKEY$= 
"" THEN 60 ELSE MOTOR OFF : STOP 
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Muziek maken 
op de MSX 




Wie MSX zegt, zegt MUZIEK. Geen wonder; nog nooit was het pro- 
grammeren van muziek op een computer zo gemakkelijk. 

Echter, zonder toepassing van een paar kleine truukjes komen we er 
met muziek maken vaak toch niet helemaal uit. 

Op de volgende bladzijden beginnen we met een elektronisch-orgel- 
programma. Misschien een beetje groot woord maar het effekt van dit 
hele korte programma is toch erg leuk. Bovendien is het programma 
gemakkelijk te veranderen. 

Verderop gaan we wat verder op muziek als verschijnsel in. Het 
glissando-orgeltje doet een beetje synthersizer-achtig aan en geeft een 
heel leuk effekt. 

De drieklanker vormt zowel voor de muziek-theoreticus als voor de 
enigszins muzikale leek een bijzonder leuk speelgoed waarmee vele 
liedjes met een enkele toets kunnen worden begeleid. 

In het laatste programma kan het gedrag van een samengestelde toon 
worden bestudeerd. Bijzonder interessant voor de terzakenkundige 
maar ook voor de leek zondermeer de moeite waard, al was het maar 
voor de mooie figuren die geproduceerd kunnen worden... 
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Orgeltje 


Het volgende programmaatje maakt van uw MSX-computer een klein 
electronisch orgeltje. 

De letter -C- stelt ook daadwerkelijk de C voor. De letters S, F, G, 

J, K. L en de aanhalingsteken-toets vormen de zogenaamde 'zwarte’ 
toetsen. 

’Vader Jacob’ moet iedereen lukken met dit programma... 

De progammalijst: 

10 REM ************************* 

20 REM * ORGELTJE * 

30 REM * * 

40 REM ************************* 

50 REM 

60 POKE 64683! » 255 sDEFUSR» 144 sKEY OFFsCL 
S ï V*«" AZSXGFVGBNJMK » L . / ' " 

70 K$«INKEY*:IF K*«" M THEN 70 
80 K== I NSTR < » K$ ) s I F K=0 THEN 70 

90 K*3 1 +K U=USR ( 0 ) s PLA Y " T32L 1 M9999S 1 N-K 5 
" ; GOTO 70 
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Glissando 


Dit programma lijkt wel wat op het eerdere orgel-programma. Nu 
worden echter onmiddellijk de SOUND registers aangesproken. Het 
programma heeft als speciaal effekt dat wanneer een volgende toon 
wordt gespeeld terwijl de vorige nog niet is uitgeklonken, er een glis- 
sando wordt gespeeld; de oude toon ”glijdt”' naar de nieuwe toe. Een 
heel leuk effekt, probeert u maar... 

De programmalijst: 

10 REM ************************* 


20 REM * GLISSANDO * 

30 REM * r " * 


40 REM ************************* 

50 REM 

60 POKE 64683 ! > 255 : DEFUSR= 1 44 : KEY OF F : CL 
Ss V$-"AZSXCFVGBNJMK#L. / ' " 

70 DIM F ( LEN ( V$ ) ) : FOR 1=0 TÖ LEJM(V$):F(I 
)=2-M 1/12) s.NEXT I 

80 F=F- ( F-F 1 ) /2 * GÜSUB 12Ö: V=-( V-l )*< V>0) 
ïF=-F*<V>0) ï SOUND 8 * V : K$= I NKEY $ : I F K*="" 
THEN 80 

90 K= I NSTR ( t K$ ) : I F K=0 THEN 80 

100 F 1 = 1 1 1 760 ! / ( 400*F ( K ) ) : 1 5 : 1 F F=C TH 

EN F=F 1 

110 GOTO 80 

1 20 SOUND O t F-256* I NT ( F / 256 5 : SOUND 1 » I NT 
(F/256) s SOUND O t F-256* I NT ( F/256 > i RETURN 
1 30 SOUND 1 .. I NT ( F/256 ) : SOUND O t F-256* I NT 
( F/256 > ï RETURN 
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Drieklanker 


Het volgende programma is zowel voor de muziek-theoreticus als voor 
de muzikale leek een heel aardig stuk speelgoed. 

Op de onderste rij toetsen is de kwintencirkel geprojecteerd. De C zit 
ook daadwerkelijk onder de letter C. Rechts zitten de mollen (F, BES, 
ES, AS, DES, GES,...) en links de kruizen (G, D, A, E, B, FIS, CIS,...). 
Aanraking van een van de toetsen resulteert in een grote drieklank met 
als grondtoon de toon uit de kwintencirkel. De bovenliggende toets 
beschikt op dezelfde wijze over de kleine drieklank. Daarboven ligt 
weer het septime akkoord (zonder kwint). 

De pijl omhoog resulteert hierin, dat de eerstvolgende grote drie- 
klank een overmatige terts krijgt. De pijl omlaag zorgt op eenzelfde 
wijze voor een overmatige kwint. 

De drieklanken zijn door middel van hun omdraaiingen steeds binnen 
een vast octaaf gehouden, gerelateerd aan een vaste grondtoon. Deze 
vaste grondtoon kan worden verschoven met behulp van de bovenste 
toetsen. De standaardinstelling komt overeen met toets -5-. Het intoet- 
sen van een 4 heeft zo dus tot gevolg dat de eerstvolgende drieklank 
een halve toon lager wordt uitgevoerd. Een 7 heeft een verhoging van 
een gehele toon tot gevolg. 

Dit verhaal zal de leek doen duizelen. Echter, wanneer het programma 
eenmaal is ingetoetst, zal blijken dat de muzikale computeramateur 
met behulp van drie of meer toetsen al snel allerlei liedjes kan begelei- 
den. Voor het meest eenvoudige werk zijn drie op de onderste balk 
naast elkaar liggende toetsen vaak al voldoende om een 'volledige’ 
begeleiding te verzorgen. 


Een kort programma waar u vele uren zoet mee zult zijn... 


De programmalijst: 

10 REM *********************** 
20 REM * DRIEKLANKER * 

30 REM * * 

40 REM *********************** 
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50 REM 

60 POKE 64683! » 2555 DEFÜSR» 1445 KEY OFF : CL 
Ss SCREEN » t O ï V$= " / ? P . LO > K I M JUNHYBGT VFRCD 
EXSWZAQ" : W$=" 1 234567890-= \" s L$=" " s'Q=45 
70 K*=INKEY*sIF K$= n " THEN 70 ELSE IF AS 
C(K*)=30 THEN T4=(T4=0) :T5=0!G0T0 70 ELS 
E IF ASC(K*)=3i THEN T5=(T5=0) sT4=0:G0T0 
70 

80 K= I NSTR ( V$ f K$ ) : I F K=0 THEN K=INSTR(W$ 
♦ K$ ) s I F K-0 THEN U=USR< O) SGOTO 70 ELSE G 
=40+K s K=L ! GOTO 70 

90 IF K=0 THEN 70 ELSE T1=-2*(K MOD 3>0) 
+ 1 NT < ( K- 1 ) / 3 ) *7 s T 2=T 1 +2- < 2-T4 > * < < K- 1 ) MOD 
3=0 > - 1 * ( < K-2 ) MOD 3=0) : T3=Tl+6-< K MOD 3> 
0)+T5*( (K-l)MOD 3=0 ) ï T1=T1 MOD 12+GsT2=T 
2 MOD 1 2+G ï T3--T3 MOD 12+G:T4«0sT5=O 
1 00 U=USR (0)8 RL A Y " M9999S 1 T32L 1 N=T 1 5 " » " M 
9999S 1 T32L 1 N-T2 ? " » H M9999S1T32L1N=T3 ï " :G0 
TO 70 
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Golfpatronen 


Zoals u weet, bestaat geluid uit trillingen. Deze trillingen zijn voor te 
stellen als golvende lijnen. Wanneer we meerdere tonen tegelijk waar- 
nemen, nemen we eigenlijk slechts een enkele trilling waar. Deze tril- 
ling kan echter nogal complex van vorm zijn. 

Het volgende programma vraagt van u de ingave van drie frequenties. 
Maximaal drie keer kunt u het aantal trillingen per seconde ingeven 
van de toon die u wilt horen. De computer laat u vervolgens deze tonen 
door elkaar horen en tekent daarbij twee regelmatige eenheden van de 
resulterende trilling. 

Voor leken is het grappig om te zien hoe de toon er uit ziet die u hoort. 
Geef voor het betere resultaat steeds getallen tussen 200-5000 in. 

Voor diegene die er iets meer van afweet kan dit programma een in- 
teressant stukje studiemateriaal zijn. 

Probeert u bijvoorbeeld maar eens een toon van 400 Hz en een toon 
van 420 Hz door elkaar te laten klinken en kijk hoe mooi het pro- 
gramma de bij deze kombinatie optredende zweving in beeld brengt... 

De programmalijst: 

10 REM ************************* 

20 REM * GOLFPATRONEN * 

30 REM * * 

40 REM ************************* 

50 REM 

60 BEER s SCREEN 0 : CLS 
70 DIM H Z ( 2 ) , PO ( 2 , 1 ) 

P.0 FOR 1=0 TO 2 SPRINT USING “& #<V‘ S " AANT 
AL HERZ " 5 1 + 1 * "e STEM "5 ! INPUT HZ(I>*NEXT 
I 

90 FOR 1=0 TO 28 IF HZ ( I ) >0 THEN P0=1H76 
0 i / H Z ( I ) s PO < I , 1 ) = I NT < PO / 256 ) : PO < I » 0 ) =PO- 
256*P0 (1,1) 

100 NEXT I 
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110 FOR 1=0 TG 28 IF HZ(ï)>0 THEN SOUND 2 
*1 *P0< I *0) : SOUND 2*1+1 ,P0< 1*1) 

120 NEXT I 

130 FOR 1=8 TO 10UF HZ(I-8)>0 THEN SOUN 
D 1*15 
140 NEXT I 

150 T =2 ! Q=2 ï GOSUB 260: IF M THEN GOTO 190 
160 Q-3 : GOSUB 260: IF M THEN GOTO 190 
170 FOR 1=3 TO 1Ê+2Ö STEP 2: FOR J=3 TO S 
QR ( I ) STEP 2 

180 IF I / J=ÏNT ( I/J ) THEN NEXT I ELSE NEX 
T J : Q= I s GOSUB 260: IF M=0 THEN NEXT I 
1 90 6=0 : F=0 : FOR I =0 TO 2 : I F HZ ( I ) >0 THEN 
F=F+1 

200 NEXT i: SCREEN 2 

210 M=0 : FOR 1=0 TO 12.57 STEP .04:Y=96-< 
SIN(HZ(0)*I)+SIN(HZ(1 )*I )+SIN(HZ(2)*I ) >* 
96/FsX=20.37*I 

220 IF M=0 THEN PSET< X*Y) :M=-1 ELSE LINE 
~( X * Y) 

230 NEXT I 

240 OPEN "GRPs" AS irPSET (0*0): PR INT #1 
* US ING ###„##### &" ï "TIJD ** ? T 5 "SEC . *' : 
CLOSE 

250 IF INKEY$=" " THEN 250 ELSE RUN 

260 M=0 :FOR K=0 TO 2:IF HZ ( K ) /Q= I NT ( HZ ( K 

)/Q) THEN NEXT K': FOR K=0 TO 2sHZ<K)=HZ<K 

) /Q : NEXT KsT=T/QsGOTO 260 

270 FOR K=0 TO 2: IF HZ(K)>0 AND HZ(KXQ 

THEN M=- lï RETURN ELSE NEXT K : RETURN 
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Serieus en 
minder serieus 
tekenwerk 
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Iedere MSX-computerbezitter weet dat zijn of haar computer in een 
handomdraai het mooiste tekenwerk kan leveren. 

Het maken van tekeningen kan natuurlijk een plezierig tijdverdrijf zijn. 
Maar ook voor het serieuze tekenwerk (grafieken, funkties) deinst uw 
MSX-computer niet terug. 

Op de volgende bladzijden beginnen we met het haken van een kleedje 
dat u jammer genoeg nooit van het beeldscherm af zult kunnen halen... 
Een heel fraai effekt in een paar programmaregels. 

Op de daaropvolgende bladzijden volgt steeds iets serieuzer tekenwerk. 
Vooral het spirograph-programma is zeker de moeite van het intikken 
waard. In een tiental programmaregels speelt u dit spel waarbij de 
mooiste spiraalfiguren ontstaan. 

Het arceren (instrepen, schuin of recht) van rechthoeken en cirkels is 
voor vele aspirant-programmeurs een ondoenlijke opgave. U zult echter 
zien dat het karwei in een vijftal goed gekozen programmaregels ge- 
klaard kan worden. 

Het lissajous-programma maakt voor u leerzame en fraaie patronen op 
het beeldscherm. 

Uiteindelijk is een ”speciaaltje” opgenomen voor de middelbare scho- 
lier. Geen geknoei op rasterpapier; laat de MSX-computer maar uit- 
zoeken hoe die lastige funktie loopt... 
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Kleedje haken 


Het volgende programma biedt een leuk grafisch grapje, misschien te 
gebruiken als intro voor een spelprogramma of iets dergelijks. 

Door een aantal punten op een cirkel te plaatsen en vervolgens alle 
punten met een lijn met elkaar te verbinden, ontstaat een grappig 
patroon dat wel wat op een gehaakt kleedje lijkt... 

De programmalijst: 

10 REM ************************* 

20 REM * KLEEDJE HAKEN * 

30 REM * * 

40 REM ************************* 

50 REM 

60 SCREEN 28K-15 
70 DIM A ( K » 1 ) : FOR 1=0 TO K 
80 A(ItO) =C0S ( I /K*6 . 28 ) * 1 25+ 1 25 
90 A( I * 1 )=SIN( I/K*6. 28 ) *90+90 
100 NEXT I 

110 FOR 1=0 TO K-lsFOR J=I+i TO K 
120 LINE ( A ( I » 0 > t A ( I » 1 > > ~ < A < J » 0 ) » A < J » 1 > ) 
130 NEXT J ! NEXT I 
140 GOTO 140 
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Random tekening 


Het volgende programma is bedoeld als een interessant 'speelgoedje’. 

Door twee willekeurige sinusoiden met lijnen met elkaar te verbinden 
genereert dit programma steeds nieuwe patronen van lijnen. 

Meestal zijn deze patronen het aanzien niet waard maar een enkele 
keer ontstaat toevallig plotseling een heel mooi lijnenspel. 

Bevalt een tekening u tijdens het ontstaan al niet? Geef maar een toets 
in. De computer maakt onmiddellijk een andere tekening voor u. 

De programmalijst: 

10 REM ************************ 

20 REM * RANDOM TEKENING * 

30 REM * * 

40 REM ************************ 

50 REM 

60 SCREEN 2»Fl-RND<-TIME)iFl-RND(l)ïF2-R 
ND ( 1 ) ! F3-RND < 1 > a V 1 =RND ( 1 ) s V2=RND ( 1 ) 

70 FGR 1=0 TO 12.6 STEP .02+RNDU) 

80 X 1 =20* I !Y1=(SIN< I*2#F1 )+l )*92*V1 
90 X2= (C0S< I *2*F2+F3*6 . 3 ) + 1 ) *128*V2 ï Y 2=l 
6*1 

100 LINE (XI »Y1 )--(X2* Y2> 

110 IF INKEY$=" " THEN NEXT I ELSE RIJN 
120 IF INKEY$=" " THEN 120 ELSE RIJN 


24 



Spirograph 


Wie kent het spel SPIROGRAPH niet? Het spel waarmee je de mooiste 
figuren kunt tekenen door twee tandwielen langs elkaar te laten lopen. 
Het ene tandwiel zet je vast en het andere draai je daar omheen. Door 
een pen in een gaatje van dit tweede tandwiel te steken, maak je tij- 
dens het ronddraaien de mooiste, spiraalachtige figuren. 

Het volgende programma simuleert dit prachtige spel. Het programma 
vraagt u allereerst om de stralen van de te gebruiken wieltjes. Vervol- 
gens vraagt het programma u, op welke afstand van het middelpunt 
van wiel 2 de pen in het gaatje dient te worden gestoken. Hierna 
wordt de resulterende figuur op beeldschenn getekend. 

Het grappige is, dat u met dit programma niet gebonden bent aan de 
beperkingen die het gebruik van echte tandwielen oplegt. Ü kunt bij- 
voorbeeld de stralen ook negatief ingeven en een pen-positie kiezen 
die buiten het tweede wiel ligt. 

Wanneer u de tweede straal negatief ingeeft, dan krijgt u het beeld dat 
ontstaat wanneer het tweede wiel zich BINNEN het eerste wiel rond- 
draait. Hieruit komen meestal de mooiste figuren. 

Het programma blijft net zolang tekenen totdat u een toets ingeeft. 
Na deze ingave kunt u weer nieuwe gegevens ingeven. 

Kunt u dit verhaal niet helemaal volgen? Gewoon intikken, even na- 
kijken en dan runnen. Geef maar wat rare waarden in, tien tegen één 
dat u er op een gegeven moment een heel mooi figuur uit krijgt! 

De programmalijst: 

10 REM ************************* 


20 REM * SPIROGRAPH * 

30 REM * * 


40 REM ************************* 
50 REM 

60 SCREEN QsWIDTH 40:KEY OFFsCLS 
70 INPUT "STRAAL VAN WIEL 1 "SRI 
80 INPUT "STRAAL VAN WIEL 2 "SR2 
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90 INPUT "AFSTAND TEKENPUNT '*?R3 
100 SCREEN 2 

110 FX=128/ (R1+R2+R3 ) :FY=96/ (R1+R2+R3) 
120 FOR T=0 TO 1E+20 STEP .4 
1 30 X=FX* < COS ( T ) *R3+CQS < T*R2/R1 ) * ( R1+R2 ) 
> + 128 

140 Y=FY* ( SIN ( T ) *R3+SIN( T+R2/R1 >*<R1+R2> 
> +96 

150 IF M=0 THEN PSET <X»Y):M=1 ELSE LINE 
-< X# Y) 

160 IF INKEY$=" " THEN NEXT T ELSE RUN 
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Arceer rechthoek horizontaal 


Het arceren van op beeldscherm getekende figuren is heel lastig te 
programmeren. Het bedenken van een juiste arceerroutine kost de 
meeste amateurs enorme hoofdbrekens. 

Toch kan een figuur betrekkelijk eenvoudig worden gearceerd wan- 
neer we wat slimmigheden toepassen. 

De volgende subroutine dient ’gevoed’ te worden met vijf variabelen: 

X 1 ,Y1 eerste hoofdpunt rechthoek 
X2.Y2 tweede hoofdpunt rechthoek 
D afstand tussen twee arceerstrepen 

Een GOSUB 1000 doet het verdere werk; de gearceerde rechthoek 
wordt getekend. 

De programmalijst: 

i 0<X> REM ************************* 
lÖiO REM * ARCEER RECHTHOEK HOR * 

1020 REM * * 

1030 REM * ( X 1 » Y 1 ) =L I NKSONDER * 

1040 REM * ( X2 > Y2 ) «RECHTSBOVEN * 

1050 REM * D= AFSTAND STREPEN * 

1060 REM * SCREEN 2 VERPLICHT * 

1070 REM ************************* 

1030 REM 

1090 LINE < X 1 » Y1 ) - < X2 ► Y2 ) * # B 

1100 FOR X=X1 TO X2SF0R Y=Y1 TO Y2 STEP 

D 

1110 PSET <X#Y> 

1120 NEXT Y»X 
1130 RETURN 
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Arceer rechthoek vertikaal 


Het arceren van op beeldscherm getekende figuren is heel lastig te 
programmeren. Het bedenken van een juiste arceerroutine kost de 
meeste amateurs enorme hoofdbrekens. 

Toch kan een figuur betrekkelijk eenvoudig worden gearceerd wan- 
neer we wat slimmigheden toepassen. 

De volgende subroutine dient ’gevoed’ te worden met vijf variabelen: 

X 1 ,Y 1 eerste hoofpunt rechthoek 
X2,Y2 tweede hoofdpunt rechthoek 
D afstand tussen twee arceerstrepen 

Een GOSUB 1000 doet het verdere werk; de gearceerde rechthoek 
wordt getekend. 

De programmalijst: 

1000 REM ************************* 

1010 REM * ARCEER RECHTHOEK VERT * 

1020 REM * * 

1030 REM * <X1.»Y1> «LINKSONDER * 

1040 REM * ( X2 1 Y2 ) «RECHTSBOVEN * 

1050 REM * D« AFSTAND STREPEN * 

1060 REM * SCREEN 2 VERPLICHT * 

1070 REM ************************* 

1080 REM 

1090 LINE <X1»Y1)-(X2#Y2) # »B 
1100 FOR X=X1 TO X2 STEP DsFOR Y=Y1 TO Y 
2 

1110 PSET ( X j Y > 

1120 NEXT Y f X 
1130 RETURN 
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Arceer rechthoek 135 graden 


Het arceren van op beeldscherm getekende figuren is heel lastig te 
programmeren. Het bedenken van een juiste arceerroutine kost de 
meeste amateurs enorme hoofdbrekens. 

Toch kan een figuur betrekkelijk eenvoudig worden gearceerd wan- 
neer we wat slimmigheden toepassen. 

De volgende subroutine dient 'gevoed’ te worden met vijf variabelen; 

X1,Y1 eerste hoofdpunt rechthoek 
X2 , Y 2 tweede hoof dpunt rechthoek 
D afstand tussen twee arceerstrepen 

Een GOSUB 1000 doet het verdere werk; de gearceerde rechthoek 
wordt getekend. 

De programmalijst: 

1000 REM ************************* 
lOÏO REM * ARCEER RECHTHOEK \\\ * 

1020 REM * * 

1030 REM * ( X 1 » Y 1 ) =L I NKSONDER * 

1040 REM * ( X2 1 Y2 ) «RECHTSBOVEN * 

1050 REM * D= AFSTAND STREPEN * 

1060 REM * SCREEN 2 VERPLICHT * 

1070 REM ************************* 

1080 REM 

1090 LINE (X1#Y1)-<X2»Y2) 

1100 FOR X«Xi TO X28FOR Y=Y1+X MOD D TO 

Y2 STEP D 

1110 PSET (X»Y) 

1120 NEXT Y # X 
1130 RETURN 
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Arceer cirkel 45 graden 


Het arceren van op beeldscherm getekende figuren is heel lastig te 
programmeren. Het bedenken van een juiste areeerroutine kost de 
meeste amateurs enorme hoofdbrekens. 

Toch kan een figuur betrekkelijk eenvoudig worden gearceerd wan- 
neer we wat slimmigheden toepassen. 


De volgende subroutine dient ’gevoed’ te worden met vier variabelen: 

X 1 ,Y 1 middelpunt cirkel 
R straal cirkel 

D afstand tussen twee arceerstrepen 

Een GOSUB 1000 doet het verdere werk; de gearceerde cirkel wordt 
getekend. 

De programmalijst: 

1000 REM ************************* 


1010 REM * ARCEER Cl ROEL /// * 

1020 REM * * 

1030 REM * < XI » Y1 ) «MI DOELPUNT * 
1040 REM * R= STRAAL * 

1050 REM * D= AFSTAND STREPEN * 
1060 REM * SCREEN 2 VERPLICHT * 


1070 REM ************************* 

1080 REM 

1090 CIRCLE (XI »Y1 ) »R 

1100 FÜR X=X 1-R TO Xl+RSFOR Y=Y1+R-X MOD 
D TO Yl-R STEP -D 

1110 IF <X~Xir-2+<Y~Yir-2>R A -2 THEN 1130 
1120 PSET ( X f Y ) 

1130 NEXT Y t X 
1140 RETURN 
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Arceer cirkel horizontaal 


Het arceren van op beeldscherm getekende figuren is heel lastig te 
programmeren. Het bedenken van een juiste arceerroutine kost de 
meeste amateurs enorme hoofdbrekens. 

Toch kan een figuur betrekkelijk eenvoudig worden gearceerd wan- 
neer we wat slimmigheden toepassen. 

De volgende subroutine dient ’ gevoed’ te worden met vier variabelen: 

X 1 ,Y1 middelpunt cirkel 
R straal cirkel 

D afstand tussen twee arceerstrepen 

Een GOSUB 1000 doet het verdere werk; de gearceerde cirkel wordt 
getekend. 

De programmalijst: 

1000 REM ************************* 


1010 REM * ARCEER CIRCEL HOR * 

1020 REM * * 

1030 REM * < X 1 1 Y 1 ) =M I DOELPUNT * 

1040 REM * R=STRAAL * 

1050 REM * D=AFSTAND STREPEN * 

1060 REM * SCREEN 2 VERPLICHT * 


1070 REM ************************* 

1080 REM 

1090 CIRCLE ( X 1 * Yi ) > R 

1100 FOR X=X 1-R TO Xl+RsFOR Y=Y1-R TO Y1 
+R STEP D 

1110 IF <X-X1) A 2+(Y-Y1> A 2>R A 2 THEN 1130 
1120 PSET <X»Y> 

1130 NEXT Y»X 
1140 RETURN 


31 



Arceer cirkel vertikaal 


Het arceren van op beeldscherm getekende figuren is heel lastig te 
programmeren. Het bedenken van een juiste arceerroutine kost de 
meeste amateurs enorme hoofdbrekens. 

Toch kan een figuur betrekkelijk eenvoudig worden gearceerd wan- 
neer we wat slimmigheden toepassen. 

De volgende subroutine dient ’ gevoed’ te worden met vier variabelen: 

X 1 ,Y 1 middelpunt cirkel 
R straal cirkel 

D afstand tussen twee arceerstrepen 

Een GOSUB 1000 doet het verdere werk; de gearceerde cirkel wordt 
getekend. 

De programmalijst: 

1000 REM ************************* 

1010 REM * ARCEER CIRCEL VERT * 


1020 REM * * 

1030 REM * (XI »Y1)=MÏ DOELPUNT * 
1040 REM * R*STRAAL * 
1050 REM * D=AFSTAND STREPEN * 
1060 REM * SCREEN 2 VERPLICHT * 


1070 REM ************************* 

1080 REM 

1090 CIRCLE ( X 1 » Y1 ) » R 

1100 FOR X*Xi-R TO Xl+R STEP 0 * FOR Y=Y1~ 
R TO Yl+R 

1110 IF ( X-X 1 ) •'*2+ ( Y-Y 1 ) ■"'2 >R^2 THEN 1130 
1120 PSET <X»Y> 

1130 NEXT Y * X 
1140 RETURN 
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Arceer cirkel 135 graden 


Het arceren van op beeldscherm getekende figuren is heel lastig te pro- 
grammeren. Het bedenken van een juiste arceerroutine kost de meeste 
amateurs enorme hoofdbrekens. 

Toch kan een figuur betrekkelijk eenvoudig worden gearceerd wan- 
neer we wat slimmigheden toepassen. 

De volgende subroutine dient ’gevoed’ te worden met vier variabelen: 


X 1 ,Y 1 middelpunt cirkel 
R straal cirkel 

D afstand tussen twee arceerstrepen 

Een GOSUB 1000 doet het verdere werk; de gearceerde cirkel wordt 
getekend. 


De programmalijst: 

1000 REM ************************* 


1010 REM * ARCEER CIRCEL \\\ * 

1020 REM * * 

1030 REM * (XI »Y1) «MIDDELPUNT * 

1040 REM * R=STRAAL * 

1050 REM * D- AFSTAND STREPEN * 

1060 REM * SCREEN 2 VERPLICHT * 


1070 REM ************************* 

1080 REM 

1090 CIRCLE ( XI » Y1 > >R 

1100 FOR X=X 1-R TO Xl+RïFOR Y=Y1-R+X MOD 
D TO Yl+R STEP D 

1110 IF (X-Xl)--2+(Y~Yl)-'-2>R-'-2 THEN 1130 
1120 F'SET <X»Y> 

1130 NEXT Y»X 
1140 RETURN 
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Arceer rechthoek 45 graden 


Het arceren van op beeldscherm getekende figuren is heel lastig te 
programmeren. Het bedenken van een juiste arceerroutine kost de 
meeste amateurs enorme hoofdbrekens. 

Toch kan een figuur betrekkelijk eenvoudig worden gearceerd wan- 
neer we wat slimmigheden toepassen. 

De volgende subroutine dient ’gevoed’ te worden met vijf variabelen: 

X 1 ,Y 1 eerste hoofdpunt rechthoek 
X2,Y2 tweede hoofdpunt rechthoek 
D afstand tussen twee arceerstrepen 

Een GOSUB 1000 doet het verdere werk; de gearceerde rechthoek 
wordt getekend. 

De programmalijst: 

1000 REM ************************* 

1010 REM * ARCEER RECHTHOEK /// * 

1020 REM * * 

1030 REM * ( X 1 * Y 1 ) =L I NKSONDER * 

1040 REM * (X2*Y2> «RECHTSBOVEN * 

1050 REM * D® AFSTAND STREPEN * 

1060 REM * SCREEN 2 VERPLICHT * 

1070 REM ************************* 

1080 REM 

1090 LINE (XI » Y1 ) — ( X2 * Y2 > * th 

1100 FOR X=X1 TO X2SF0R Y=Y2-X MOD D TO 

Y 1 STEP -D 

1110 PSET (X»Y) 

1120 NEXT Y t X 
1130 RETURN 
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Lissajous 


Een lissajous-fïguur is een figuur dat ontstaat op het scherm van een 
oscilloscoop wanneer men op de horizontale en vertikale afbuigplaten 
twee wisselspanningen zet. Door deze spanningen in frequentie en fase 
te laten verschillen, ontstaan de mooiste figuren. 

Het volgende programma vraagt u om de beide frequenties en het fase- 
verschil in aantal golflengten. Vervolgens wordt de lissajous-figuur ge- 
tekend. Door een willekeurige toets in te drukken, wordt het tekenen 
onderbroken en kunt u opnieuw uw gegevens ingeven. 

Voor de leek: intikken en uitproberen. Na enig proberen krijgt u er de 
meest interessante figuren uit! 

De programmalijst: 

10 REM ************************* 


20 REM * LISSAJOUS * 

30 REM * * 


40 REM ************************* 

50 REM 

60 SCREEN Os WIDTH 40 « KEY OFFsCLS 
70 INPUT "FREQUENTIE HORIZONTAAL " *FH 
80 INPUT "FREQUENTIE VERTIKAAL " 5FV 
90 INPUT "FASEVERSCHIL " ? FA 

100 SCREEN 2 

110 FOR T=0 TO 1E+20 STEP .4/<FH+FV) 

120 X= < COS < T *FH ) + 1 ) * 1 28 
1 30 Y= ( COS < T*FV+FA*6 . 283 ) + 1 ) *96 
140 IF M=0 THEN PSET (X»Y)sM=l ELSE LINE 
-<X»Y) 

150 IF INKEY$=" " THEN NEXT T ELSE RUN 
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Funktieprinter 


Het volgende programma is een soort ’afkijkertje’ voor de middel- 
bare scholier. Dit programma geeft de grafiek van een willekeurige 
funktie weer. 

Op regel 100 dient de laagste X-waarde in II te worden geplaatst en 
op regel 1 10 dient de hoogste X-waarde in 12 te worden geplaatst. Op 
regel 120 moet de stapwaarde (de grootte van de stappen waarmee de 
te bestuderen funktie dient te worden doorlopen) in ST worden gezet. 
Tenslotte moet op regel 130 de funktie FNF op de juiste wijze 
worden gedefinieerd. 

Nadat dit allemaal is gedaan, behoeft slechts een RUN te worden 
ingegeven waarna de computer de funktie tekent. Wanneer mogelijk 
worden de assen ook getekend. De funktie wordt zo vergroot in 
X- en Y-richting dat er een duidelijk verloop ontstaat. Op de assen 
(of, wanneer deze niet getekend kunnen worden, in het midden van 
het beeld) worden de eenheden afgetekend zodat de vergrotingsfaktof 
kan worden geschat. 

Nadat de natuurlijk eerst uit het hoofd getekende funktie op deze 
wijze is gecontroleerd, kan een RETURN worden gegeven. 

Het programma laat dan nog even de coördinaten zien van de beeld- 
schermhoeken links onder en rechts boven zodat de funktie een plaats 
kan worden ingeschat ook wanneer de assen niet getekend zijn. 

In het programma is een funktievoorbeeld opgenomen dat natuurlijk 
te allen tijde mag worden veranderd. 

De programmalijst: 

10 REM ************************* 


20 REM * FUNKTIEPRINTER * 

30 REM * * 

40 REM * I 1=VAN WAARDE * 

50 REM * I2=TÖT WAARDE * 

60 REM * ST -ST APWAARDE * 

70 REM * FNF=FUNKTIE * 


80 REM ************************* 
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90 REM 
100 I l=-3. 14 
110 12=3.14 
120 ST= . 3 

130 DEF FNF < X ) =CQS ( X > 

140 SCREEN 2 

150 M I = 1 E+62 ! MA=- 1 E+62 

160 FOR X=I1 TO 12 STEP ST 

170 Y=FNF ( X ) * IF MI>Y THEN MI=Y 

180 IF MA< Y THEN MA=Y 

190 NEXT X 

200 EX=256/( 12-11) : EY=192/ < MA-MI ) 

210 IF 1 1<=Ö AND 1 2 >=0 THEN LY=-I 1*EX ïLI 
NE (LY-1 »0)-(LY+l » 191 ) » f BF ELSE LY=128 
220 FOR I=INT(MI) TO MAsLINE (LY-3»(I-MI 
)*EY)-<LY+3><Ï-MI)*EY)!NEXT I 
230 IF MI<=0 AND MA>=0 THEN LX=-MI*EYïLI 
NE (O» 193-LX )-(255» 191-LX) t »BF ELSE LX=9 
6 

240 FOR I — I NT (II) TO I2iLINE <<I-I1)*EX» 

195-LX )- ( <1 — 11 )*EX * 188-LX ) 5 NEXT I 

250 M=0 ! FOR 1=11 TO 12 STEP ST 

260 X= ( I - 1 1 > *EX ! Y= < FNF ( I > -M I ) *EY 

270 IF M THEN LI NE -<X*192-Y> ELSE PSET 

( X » 192-Y ) ï M=-l 

280 NEXT I 

281 IF INKEY$=“ " THEN 281 

290 SCREEN OsPRINT "MINIMUM !(" 5 I 1 5 % " ?MI 
- - ) *• SPRINT ‘'MAXIMUM! < " 5 12? " > " üMA! “ > " 

300 STOP 
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Truuks 
met het 
beeldscherm 
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Wie zei er dat je op het MSX-beelscherm maar 40 tekens kwijt kan? 

Zonder truuks die buiten BASIC liggen zult u in het eerste programma 
al zien dat het echt mogelijk is om op een grafisch scherm (SCREEN 
2) maar liefst 42 karakters naast elkaar te projekteren. En dat met een 
subroutinetje van DRIE regels... 

Dat je met het MSX-beelscherm heel aardige grapjes kunt uithalen, 
bewijzen de programma’s die daarop volgen. Karakters kunnen worden 
geïnverteerd, onderstreept en aangedikt. 

Met een stevige subroutine is het zelfs mogelijk om TIEN teksten over 
het beeldscherm te laten knipperen. 

De ondernemende amateur kan op basis van de hierna volgende pro- 
grammatuur waarschijnlijk nog veel meer effekten uit zijn MSX- 
computer halen. 


40 



42 tekens per regel in SCREEN 


De meeste MSX-programmeurs weten wel hoe je een tekst op het 
grafische beeldscherm kunt printen: 

ICO SCREEN 2! OPEN "GRP:" AS 1 
110 PRINT #1 t "TEST" 

120 CLOSE #1 
130 ... 

Deze methode heeft als nadeel dat de letters nogal ver uiteen worden 
afgedrukt zodat er maar 32 naast elkaar op een regel passen. 

De volgende subroutine projekteert de door u opgegeven tekst op een 
grafisch scherm (SCREEN 2) en wel zo, dat er 42 tekens naast elkaar 
passen! 

U dient deze subroutine als volgt aan te roepen; 

100 I $-"XXYYA A" 

110 GOSUB 15000 

1$ dient op XX en YY te zijn gevuld met de horizontale en vertikale 
karakterpositie waarop moet worden afgedrukt. A— A stelt de af te 
drukken tekst voor. 

Een tuepassingsvoorbeeld: 

100 SCREEN 2 s L I NE ( 20 » 20 ) - ( 1 00 1 
1 00 ) » » B 

110 1$=" 0522DIT IS EEN RECHTHO 
EK" ï GOSUB 15000 
1 20 . . . 

Bovenstaand voorbeeld tekent eerst een rechthoek en zet dan de tekst 
”Dit is een rechthoek” eronder. 


De programmalijst: 

10 REM ************************* 
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20 REM * PRINT 42 TEKENS ONDER * 

30 REM * SCREEN 2. I*="XXYYA-A * 

40 REM * XXYY=PÜSITIE X>Y» A-A * 

50 REM * IS TE PRINTEN TEKST * 

60 REM ************************* 

70 REM 

1 5000 X = V AL ( LEFT* ( I * » 2 ) ) : Y=V AL ( M I D* ( I * » 3 
♦ 2 ) ) 

15010 OPEN "GRP* " AS ÜFOR 1=5 TO LEN(I$ 
) 

15020 PRESET (6*<X+I~5) »8*Y) SPRINT #1>MI 
D*(I*tI>l):NEXT ïs CLOSE #1 s RETURN 
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Inverteren van karakters 


Het volgende programmaatje inverteert de tekens op beeld (SCREEN 
0). De tekens worden omgedraaid zodat de voorgrondkleur de achter- 
gróndkleur en de achtergrondkleur de voorgrondkleur wordt. 

Bij de normale kleurinstelling (color 15,4,4) betekent dit dat de letters 
bij ingave op een lichtgekleurde balk worden geprojekteerd. 

Dit programma kan als onderdeel in een ander programma worden 
op genomen. 

Met een willekeurige screen-opdracht wordt het effect weer ongedaan 
gemaakt. 

De programmalijst: 

10 REM **************************** 

20 REM * INVERTEREN VAN KARAKTERS * 

30 REM * * * 

40 REM * ALLE TEKENS BEHALVE SPA- * 

50 REM * TIE WORDEN GEÏNVERTEERD. * 

60 REM **************************** 

70 REM 

80 SCREEN OsFOR I~BASE<2>+264 TO BASE (2 
) *2048 

90 VPOKE I t 255-VPEEK ( I ) 

100 NEXT I : STOP 
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Onderstrepen van karakters 


Het volgende programmaatje onderstreept de tekens op beeld 
(SCREEN 0). 

Alle geprojekteerde tekens worden automatisch onderstreept. 

Dit programma kan als onderdeel in een ander programma worden 
opgenomen. , 

Met een willekeurige SCREEN-opdracht wordt het effect weer onge- 
daan gemaakt. 

De programmalijst: 

10 REM ****************************** 

20 REM * ONDERSTREPEN VAN KARAKTERS * 

30 REM * * 

40 REM * ALLE TEKENS BEHALVE SPATIE * 

50 REM * WORDEN ONDERSTREEPT . * 

AO REM ****************************** 

70 REM 

80 SCREEN 0 : POR I=BASE<2)+271 TO BASE (2 
) +2048 STEP 8 
90 VPOKE I t 255-VPEEK ( I ) 

100 NEXT I ï STOP 
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Vette letters 


Het volgende programmaatje maakt de tekens op beeld vet (SCREEN 

O- 

Alle geprojekteerde tekens worden automatisch vet uitgevoerd. 

Dit programma kan als onderdeel in een ander programma worden 
opgenomen. 

Met een willekeurige SCREEN-opdracht wordt het effect weer onge- 
daan gemaakt. 

De programmalijst: 

10 REM ************************* 


20 REM * VETTE LETTERS * 

30 REM * * 

40 REM * DE KARAKTERS WORDEN * 
50 REM * VET GEMAAKT. . * 


60 REM ************************* 

70 REM 

80 SCREEN 1SF0R Ï=BASEC4> TO BASE (4) +20 
48 

90 VPQKE I » VPEEK ( I ) OR VPEEK(I>/2 
100 NEXT is STOP 
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Extra vette letters 


Het volgende programmaatje maakt de tekens op beeld extra vet 
(SCREEN 1). 

Alle geprojekteerde tekens worden automatisch extra vet uitgevoerd. 

Dit programma kan als onderdeel in een ander programma worden 
opgenomen. 

Met een willekeurige SCREEN-opdracht wordt het effect weer onge- 
daan gemaakt. 

De programmalijst: 

10 REM ************************* 

20 REM * VETTE LETTERS * 

30 REM * * 

40 REM * DE KARAKTERS WORDEN * 
f.ó REM * EXTRA VET GEMAAKT. * 

60 REM ************************* 

70 REM 

80 SCREEN 18F0R I=BASE<4) TO BASE (4 >+20 

90 VPOKE I t VPEEK ( I ) OR VPEEK(I>/2 OR VPE 
EK(I>/4 

100 NEXT 18 STOP 
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Knipperteksten 


Het is in MSX-basic helaas niet mogelijk om delen van een tekst 
zonder meer te laten knipperen. 

Het volgende programma geeft u een mogelijkheid om met een omweg 
maximaal tien verschillende tekstdelen op het beeldscherm te laten 
knipperen. 

Om een knippertekst aan te zetten, dient u 1$ te vullen met de te 
knipperen tekst, voorafgegaan door vier numerieke posities die de lo- 
catie van die tekst op beeld aangeven. 

Wilt u de tekst ”TRUUKS EN TIPS” bijveoorbeeld op de vierde regel 
vanaf de vijfde postitie laten knipperen, dan probeert u: 

XXXX I " 0405TRUUKS EN TIPS": GOSUB 10000 

Deze tekst zet u weer uit door het volgende te programmeren' 

XXXX I $= " 0405 " ï GOSUB 10000 

Maximaal tien teksten kunnen op deze wijze tegelijk knipperen. Bij 
het uitvoeren van een (LINE) INPUT of een soortgelijk kommando, 
houdt het knipperen op. Door de in dit boek op gen omen ingaveroutine 
te gebruiken, kunt u een tekst tijdens ingave door laten knipperen. 

Om deze routine uit te proberen, kunt u het beste het volgende pro- 
grammeren: 

100 I $= " 1 0 1 OKN I PPERTEST " 

110 GOSUB 10000 

120 1$-" 1015GEEF RETURN" 

130 GOSUB 10000 
140 IF ÏNKEY$=" U THEN 140 
150 I$=" 101 O"! GOSUB 10000 
160 I $ = “ 1 0 1 5 " ! GOSUB 10000 
1 70 STOP 
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De programmalijst: 

10 REM ************************** 

20 REM * ' 10 KNIPPERTEKSTEN * 

30 REM * * 

40 REM * I$="XXYYA A" * 

50 REM * * 

/,0 REM * X X / Y Y=HÖR / VERT POSITIE * 

70 REM * A A=KN I PPERTEKST * 

RO REM * GOSUB 1 0000=KN I PPEREN * 

9Ö REM * OF WEER UIT ZETTEN * 

1 00 REM************************** 

11 6 REM 

10000 INTERVAL STOP M F KM=0 THEN KM=~lïO 
N INTERVAL-25 GOSUB 1 0030 ï D I M KN$ ( 9 ) . 
TOOI O FOR K I =0 TO 9UF KN$(KI) = I$ THEN L 
OPATÊ VAL ( LEFT $ ( I $ > 2 ) ) ,VAL(MID*< I*»3»2> ) 

: PR I NT SP ACE* ( LEN < I $ > -4 > ? : KN$ ( K I ) = " " : I NT 
ERVAL ON: RETURN ELSF. NEXT KI 
10020 FOR K I =0 TO 9:IF KN*<K I ) =“ " THEN K 
Ni(kï)=ï*s INTERVAL ONs RETURN ELSE NEXT K 
i: INTERVAL ON: RETURN ■ 

1 0030 KJ-NGT ( KJ ) = KX-POS <0)5 KY=CSRL I N : FOR 
KI as O TO 9 5 IF KN$ (KI ) =" " THEN GOTO 10050 
1 0040 LOCATE VAL < LEFT$ ( KN$ C K I ) » 2 ) ) t VAL < M 
IDi(KN$(KI)#3»2))5lF KJ THEN PRINT MID*< 
KN*(KI>»5>5 ELSE PRINT SPAÜE*<LEN<KN*(KI 
) ) —4 ) 5 

10050 NEXT KI s LOCATE KX t KYï RETURN 
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Enkele 

bruikbare 

gebruikersfunkties 
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De volgende programma’s voorzien in een aantal funkties die binnen 
MSX-basic in één regel zijn te benoemen. 

De funkties voorzien in bepaalde behoeften waarmee elke serieuze 
programmeur wel een keer wordt gekonfronteerd. 

Wanneer we behalve spelletjes ook wat serieuzer programmeerwerk 
willen gaan aanpakken, dan komen we op een gegeven punt onvermij- 
delijk tot de noodzaak, bepaalde bedragen verantwoord af te ronden. 

Het is altijd gemakkelijk om te kunnen kontroleren of een gedane in- 
gave wel numeriek is. 

Ook voorloopnullen en achterspaties dienen op een gegeven moment 
te kunnen worden toegepast. 

Uiteindelijk willen we op een gegeven moment dan ook af van die ver- 
velende STR$-funktie die in elk BASIC weer net iets anders werkt. 
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Afronden 


Bij het schrijven van mooie, administratieve programma’s komen we al 
snel tot de ontdekking dat we nogal vaak bepaalde numerieke waarden 
moeten afronden. 

Wanneer we bijvoorbeeld met percentages over bedragen gaan werken, 
komen we al snel met tienden en honderdsten van centen te zitten. 

De funktie FNR vraagt van u de af te ronden waarde en het aantal 
decimalen waarop moet worden afgerond. FNR geeft als resultaat een 
perfekt afgeronde waarde. 

Een toepassingsvoorbeeld: 

200 INPUT "BEDRAG" ?B 
210 INPUT "BTW-%" ïP 
220 PRINT "BRUTO s " 5 FNR (d+P/1 
00)*B»2> ! STOP 

RUN 

BEDRAG ? 125. 23 
BTW-‘/. ? 1 9 
BRUTO! 149.02 
Break in 220 
0k 

De programmalijst: 

10 REM ************************* 

20 REM * AFRONDEN * 

30 REM * * 

40 REM * FNR { X » Y ) GEEFT DE AD- * 

50 REM * MINISTRATIEVE AFRON- * 

60 REM * DING VAN X OP Y NA- * 

70 REM * KOMMAPOS I T I ES * 

80 REM ************************* 

90 REM 

100 DEF FNR ( X # Y ) =SGN < X ) * I NT ( ABS < X ) * 1 O'-'Y-t- 
. 5 ) / 1 0'"'Y 
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Controle numeriek 


Het INPUT-kommando van het MSX-BASIC geeft een vraagteken, 
of we willen of niet. Wanneer we geen vraagteken wensen, dan dienen 
we bijvoorbeeld van de LINE INPUT gebruik te maken (of natuurlijk 
van de in dit boek opgenomen ingaveroutine). 

Dit stelt ons al snel voor een probleem. De LINE INPUT staat alleen 
stringvariabelen toe. Een numerieke ingave moet via de LINE INPUT 
eerst in een string worden gezet en daarna, via de VAL-funktie, pas 
in een numerieke variabele. De controle of een string wel met een 
juiste numerieke waarde is gevuld, is vrij lastig te programmeren. 
Toch willen we een numerieke ingave in een goed verzorgd programma 
graag controleren op een juiste ingave. 

De funktie FNN geeft ons gelukkig de mogelijkheid om heel eenvou- 
dig te testen of een string een juiste numerieke waarde bevat. 
FNN dient ’gevoed’ te worden met de te controleren string en geeft als 
resultaat een -1 (goed) of een 0 (fout). 

Een toepassingsvoorbeeld: 

200 PRINT "WAARDE!"? 

210 LINE INPUT W* 

220 IF FNN<W*)=0 THEN 200 

Het bovenstaande programmaatje heeft, wanneer vooraf de funktie 
FNN dient ’gevoed’ te worden met de te controleren string en geeft als 
resultaat een -1 (goed) of een 0 (fout). 

De programmalijst: 

10 REM ************************* 

20 REM * CONTROLE NUMERIEK * 

30 REM * * 

40 REM * FNN ( X$ ) GEEFT ALS RE- * 

50 REM * SULTAAT -1 WANNEER X* * 

60 REM * VOLLEDIG NUMERIEK IS * 

70 REM * GEVULD EN ANDERS EEN * 

30 REM * 0 * 
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90 REM ************************* 

100 REM 

110 DEF FNN ( X$ ) = ( LEN ( STR$ ( VAL ( X$ ) ) ) + ( VAL 
<X*>>=0>=LEN(X$) ) 
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STR$ zonder spaties 


De verschillende BASIC-dialecten die er op deze wereld zoal zijn, heb- 
ben allemaal hun eigenaardigheden. Vaak lijken de BASIC’s in eerste 
instantie wel op elkaar maar blijken zij bij nadere bestudering op vele 
punten van elkaar af te wijken. 

De STR$-funktie, die welhaast in elk BASIC-dialect voor handen is, is 
zo’n funktie die per. BASIC-dialect verschillen vertoont. 

In het MSX-BASIC geeft de STR$-funktie de tussen haakjes vermelde 
numerieke waarde in string-vorm weer. Een positieve waarde wordt 
hierbij voorafgegaan door een spatie terwijl een negatieve waarde door 
een min-teken wordt voorafgegaan. 

Juist in dit opzicht (spaties voor, spaties na) verschillen de BASIC- 
dialecten nogal. Het ene dialect geeft de string spatieloos weer terwijl 
het andere een spatie vooraf en misschien ook nog wel een spatie 
achteraf geeft. 

De onderstaande funktie FNV$ vormt een alternatief voor de STR$- 
funktie en geeft de string zonder voor- of achterspaties weer op de 
manier zoals een STR$-funktie dat overal zou moeten doen. 

De programmalijst: 


10 REM ************************* 

20 REM * STR* ZONDER SPATIES * 

30 REM * 7" * 

40 REM * FNV*(X> GEEFT X IN * 

50 REM * STRINGVORM (ALS STR* > * 

60 REM * MAAR DAN SPATIELOOS * 

70 REM * WEER. STR* (12) IS * 

rÖ REM * B.V. GELIJK AAN " 12" * 

QÖ REM * TERWIJL FNV* (12)' GE- * 

100 REM * LIJK IS AAN "12" * 

110 REM ************************* 

130 DEF FNV* ( X ) =RIGHT * (STR* ( X ) r LEN ( STR* ( 
X ) ) + ( X >=0 ) ) 
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Voorloopnullen 


In een goed verzorgd, administratief programma is het vaak nodig dat 
een numerieke waarde met voorloopnullen in een string wordt gezet. 
Het maken van een juiste routine hiervoor is voor velen nog een hele 
klus. 

De funktie FNN$ geeft de mogelijkheid om in een handomdraai de 
juiste kodering in een string te verkrijgen. 

Een toepassingsvoorbeeld: 

200 I NF'UT " ART I KELNUMMER : " ï A 
210 A$=FNN$(A»6) 

220 PRINT A$ : STOP 
RUN 

ARTIKELNUMMER: ?243 

000243 

Break in 220 

Ok 

FNN$ verlangt van u de in een string te plaatsen waarde en de lengte 
van de string. Het resultaat is een string met daarin de waarde met 
voorloopnullen opgenomen. 

De programmalijst: 

10 REM ************************* 

20 REM * VOORLOOPNULLEN * 

30 REM * — * 

40 REM * FNN$(XfY) GEEFT X MET * 

50 REM * VOORLOOPNULLEN OP * 

60 REM * LENGTE Y IN STRING- * 

70 REM * VORM WEER. FNN*<12,6> * 

80 REM * GEEFT B.V. "000012" * 

90 REM * ALS RESULTAAT * 

100 REM ************************ 

110 REM 

120 DEF FNN$<XfY)=RIGHT*(STRS(X+10~Y) >Y) 
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Aanvullen achterspaties 


Wanneer we een programma een beetje willen verzorgen, komen we 
vaak tot de noodzaak om een stringvariabele met spaties tot een be- 
paalde, vaste lengte aan te vullen. 

Onderstaande funktie FNL$ dient 'gevoed’ te worden met de string 
en de gewenste lengte. 

Het resultaat is een stringwaarde die precies op lengte is. 

Een toepassingsvoorbeeld: 

100 INPUT "NAAM:"ïN$ 

110 N$=FNL$ ( N$ » 24 ) 

1 20 . . . 

In een enkel, klein statement is het met FNL$ nu mogelijk om een 
string bijvoorbeeld op precies 24 posities af te kappen of aan te 
vullen. 

De programmalijst: 

10 REM ************************* 


20 REM * STRING OP LENGTE * 

30 REM * * 

40 REM * FNL$ ( X$ » X ) STELT X* * 
50 REM * MET ACHTERSPATIES OP * 
60 REM * DE LENGTE X * 


70 REM ************************* 

80 REM 

90 DEF FNL$ ( X$ r X > =LEFT$ < X$+SPACE$ < X ) » X > 
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Datumperikelen 



57 




Een datum is een oervervelend ding. Hoe bepaal je of een ingegeven 
datum wel in orde is? Hoe projekteer je een datum een beetje fatsoen- 
lijk? Hoeveel dagen liggen er precies tussen twee data? Welke dag viel 
er op een bepaalde datum? 

Allemaal vragen die voor de gemiddelde amateur bijna onoverkomelijke 
problemen vormen en die in de volgende programma’s in enkele regels 
voor u worden opgelost. 

De handige programmeur maakt mei behulp van de funkties die op de 
volgende bladzijden staan in een handomdraai een programma dat 
voor elke willekeurig jaar een komplete kalender op de printer afdrukt. 

Wie stuurt ons alvast een kalender voor het jaar 1999? 
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Datum formatteren 1 


Een datum willen we graag altijd op een speciale wijze beeld 
brengen. Een datum als 21 januari 1985 noteren we meestal als 
21-01-85 of 21/01/85. 

Om een datum op deze wijze in MSX-BAS1C afgedrukt te krijgen, is 
nog een hele kunst. 

De funktie FNF$ die hieronder is beschreven, formatteert een opge- 
geven datum voor u op de juiste wijze. U dient de funktie te ’voeden’ 
met een datum en een scheidingsteken en de funktie geeft u de gefor- 
matteerde datum als resultaat. 

De onderstaande funktie kan bijvoorbeeld met de volgdende pro- 
grammaregels worden aangevuld: 

200 INPUT “DATUM" 5 D 

210 PRINT " DATUM • " 3 FNF * ( D » " - " ) 

220 STOP 
RUN 

DATUM ? 10385 
DATUM ï 0 1 -03-85 
Break in 220 
OK 

De programmalijst: 

10 REM ************************* 


20 

30 

40 

REM 

REM 

REM 

* 

DATUM FORMATTEREN 

* 

.U. 

* 

* 

FNF*(X»X*> GEEFT DE 

* 

50 

REM 

* 

DATUM OP GEBRUIKELIJ- 

* 

60 

REM 

* 

KE WIJZE GEFORMAT- 

* 

70 

REM 

* 

TEERD. X* IS HET 

* 

80 

REM 

* 

SCHEIDINGSTEKEN. 

* 

90 

REM 

* 

FNF* (31 1285»"-“) 

* 

100 REM 

* 

GEEFT STRING 

* 
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1 10 REM * STRING “3 1-12-85" ALS * 

120 REM * RESULTAAT * 

130 REM ************************* 

140 REM 

150 DEF FNF$ ( X » X$ > =RIGHT $ ( 8TR$ ( 100+ INT ( X 
/ 1 0000 ) ) » 2 ) + X *+R I GHT$ ( STR* ( 1 00+ 1 NT ( X / 1 00 
) - 1 00* I NT ( X / 1 0000 )) * 2 ) +X$+R I GHT* ( STR$ ( 1 0 
0+ ( X- 1 00* I NT ( X / 1 00 ) ) ) f2) 
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Datum formatteren 2 


De funktie FND$ dient met een datum te worden gevoed. Als uit- 
komst geeft deze funktie dan de datum in een vorm zoals deze bij- 
voorbeeld boven een brief behoort te staan. 


FND$(101056) geeft bijvoorbeeld als resultaat: ”10 oktober 1956” 


De programmalijst : 

10 REM ************************ 


20 REM * DATUM FORMATTEREN * 

30 REM * * 

40 REM * FND$( X > GEEFT DE DA- * 

50 REM * TUM IN WOORDELIJKE * 

60 REM * VORM. * 

70 REM * FND* (010185) * 

80 REM * OF * 

90 REM * 1 JANUARI 1985 * 


100 REM ************************ 

110 REM 

120 DEF FND 1(X)=INT(X/1 0000 ) 

130 DEF FND2( X )=INT ( X/1Ö0)-100*FND1 ( X ) 
140 DEF FND3( X ) =X-i00Ö0*FNDi ( X )-100*FND2 
(X) 

150 DEF FND1$< X)=MID*( "JANUARI FEBRUAR 
I MAART APRIL MEI JUNI 

JULI AUGUSTUS SEPTEMBER OKTOBER 

NOVEMBER DECEMBER " , 1 0* ( FND2 ( X ) - 1 ) + 
1 » 10 ) 

160 DEF FND* ( X ) =STR* ( FND 1 ( X ) ) + " "+LEFT*< 
FND 1 * ( X ) » I NSTR ( FND 1 $ ( X ) » " “ ) ) + •• 1 9 " +R I GHT 
* ( STR$ ( FND3 ( X ) + 1 00 ) » 2 ) 
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Datumcontrole 


De funktie FNC geeft de mogelijkheid om een ingegeven datum op 
juistheid te toetsen. De funktie houdt ook rekening met bijvoorbeeld 
schrikkeljaren. 

Nadat het onderstaande programmaatje is uitgevoerd, kan de anders 
zo ingewikkelde bepaling of een datum juist is, in een handomdraai 
worden verricht. 

De datum dient in gewone dag-maand-jaarvorm voor funktie FNC te 
worden opgesteld. Wanneer het resultaat van FNC gelijk is aan -1, 
dan is de opgegeven datum correct. Is het resultaat echter gelijk aan 
nul, dan was de opgegeven datum fout. 

Dus: FNC(290284) geeft waarde -1 (goed) 

FNC(290295) geeft waarde O (fout) 

FNC(10182) geeft waarde -1 (goed) 

Wanneer de funktie FNC is gedefinieerd, kan bijvoorbeeld op de vol- 
gende maniereen datumingave worden gepleegd: 

•-•00 INPUT "DATUM" 5 D 

31 6 IF FNC ( D ) =0 THEN 300 

Bovenstaande regels dragen er zorg voor, dat er net zo lang een datum 
wordt gevraagd totdat een goede datum is ingegeven. 

De programmalijst: 

10 REN ************************* 


20 

REM 

* 

DATUMCONTROLE 

* 

30 

REM 

* 



* 

40 

REM 

* 

FNC ( X ) GEEFT EEN 0 

* 

50 

REM 

* 

INDIEN DE DATUM X 

* 

60 

REM 

* 

NIET KLOPT EN EEN “1 

* 

70 

REM 

* 

WANNEER DEZE DATUM 

* 

80 

REM 

* 

WEL KLOPT. X IN DAG- 

* 

90 

REM 

* 

MAAND-JAAR VORM# BIJ- 

* 

100 REM 

* 

VOORBEELD 10184 OF 

* 
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110 REM * 311285. * 

120 REM ************************* 

130 REM 

140 DEF FND 1 ( X ) = I NT < X / 1 0000 ) 

150 DEF FND2 ( X ) = I NT ( X / 1 00 ) - 1 00*FND 1 < X ) 

1 60 DEF FND3 ( X ) =X- 1. 0000*FND 1 ( X ) -- 1 0Ö*FND2 
(X) 

170 DEF FND4 ( X ) = < FND2 (XXI 3 AND FND2(X)> 
0) 

180 DEF FND5 ( X ) =30+ ( FND2 ( X ) - ( FND2 ( X ) >7 ) ) 
MfiD 2 +2* ( FND2 ( X ) =2 ) - ( FND3 ( X ) MOD 4=0) 

1 9Q OEF FND6 < X ) = ( FND5 < X ) >=FND 1 ( X ) AND FN 
Dl (X)>0) 

200 DEF FNC< X ) =-i*FND6< X )*FND4( X ) 
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Dagen tussen twee data 


De volgende funktie dient 'gevoed’ te worden met twee data. Het re- 
sultaat van FNV is het verschil in aantal dagen tussen deze twee data. 

Het volgende programmaatje laat zien hoe u FNV bijvoorbeeld kunt 
gebruiken: 

200 INPUT " DATUM 1"? Dl 
210 INPUT "DATUM2" ?D2 

220 PRINT "DAGEN ERTUSSEN ' " ? FNV ( D 1 » D2 ) 
230 STOP 

De programmalijst: 

10 REM ************************** 

20 REM * DAGEN TUSSEN TWEE DATA * 

30 REM * * 

40 REM * FNV(DlrD2) GEEFT HET * 

50 REM * AANTAL DAGEN TUSSEN * 

1.0 REM * TWEE DATA. Dl EN D2 * 

70 REM * ZIJN DE TWEE DATA * 

80 REM * WAARTUSSEN HET VER- * 

90 REM * SCHIL WORDT BEREKEND * 

100 REM ************************** 
liö REM 

120 DEF FND 1 ( X > = I NT C X / 1 0000 ) 

130 DEF FND2 ( X ) = I NT ( X / 1 00 ) - 1 00*FND 1 ( X ) 

1 40 DEF FND3 ( X ) =X - 1 0000*FND 1 ( X ) - 1 00*FND2 
( X ) 

150 DEF FND6 ( X > = ( FND5 ( X ) >=FND1 ( X > AND FN 
DÏ(X)>0) 

1/-.0 DEF FNK 1 ( X ) = I NT ( 365 . 25*FND3 ( X ) +FND 1 ( 
X ) - 1 ■ +VAL ( M I D* ( " 00003 1 059090 1 20 1511812122 
4 32 7 830433 4 " » < FND2 < X > - 1 > *3+ 1 #3 > > - < FND3 ( X 
) MOD 4 =0 ) * < FND2 (XX 3 ) ) 

170 DEF FNV ( X » Y ) = ABS ( FNK 1 ( X ) -FNK 1 ( Y ) > 
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Eeuwigdurende kalender 


Dat het MSX-BASIC een verdraaid krachtig BASIC is, bewijst de vol- 
gende funktie. 

FNK$ is een funktie waarin een eeuwigdurende kalender besloten ligt. 
De funktie FNKS dient ’gevoed’ te worden met een datum en geeft 
als resultaat de naam van de dag. 


zo geeft : 

het resultaat: 

FNK$(101056) 

woensdag 

FNK$(0 10785) 

maandag 

FNK$(300684) 

zaterdag 


Nadat funktie FNK$ is gedefinieerd, kan het volgende programmaatje 
u bijvoorbeeld precies vertellen op welke dagu bent geboren; 

200 INPUT "GEBOORTEDATUM" ? D 
210 PRINT "DAGs M ?FNK*(D> 

220 GOTO 200 

De programmalijst: 

10 REM ************************** 

20 REM * EEUWIGDURENDE KALENDER * 

30 REM * * 

40 REM * FNK$ ( X ) GEEFT VAN DE * 

50 REM * DATUM IN X DE DAGNAAM * 

60 REM * ZO GEEFT FNK*< 101056) * 

70 REM * BIJVOORBEELD HET RE- * 

80 REM * SULTAAT "WOENSDAG " * 

90 REM ************************** 

100 REM 

110 DEF FND i(X)=INT(X/l 0000 ) 

120 DEF FND2 ( X ) = I NT < X / 100 ) -1 00*FND1 ( X > 

1 30 DEF FND3 < X > = X ” 1 0000*FND 1 ( X ) - 1 00*FND2 
(X) 
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1 40 DEF FND4 < X ) = ( FND2 (XXI 3 AND FND2 ( X ) > 


ï 50 DEF FND5 ( X ) =30+ < FND2 ( X ) - < FND2 ( X ) >7 ) ) 
MÖD 2 +2* < FND2 ( X > =2 ) — ( FND3 ( X ) MOD 4=0) 
160 DEF FND6 < X > = ( FND5 ( X ) >=FND 1 ( X ) AND FN 


D 1 < X ) >0 ) 

ito DEF FNK 1 ( X ) = < 7 +365 . 25*FND3 ( X ) +FND 1 ( X 
) 1 1 + V AL ( M I D* ( “ 00003 1 059090 1 20 15118121 224 
3273304334 " > ( FND2 < X ) — 1 > *3+ 1 1 3 ) ) - ( FND3 ( X ) 


MOD 4 =0 ) * ( FND2 (XX 3 ) ) MOD 7 
1 80 DEF FNK$ < X ) =M I D$ ( " MAANDAG D I NSDAG 
WOENSDAG D0NDERDA6VRI JDAG ZATERDAG ZOND 
AG " t FNK1 ( X ) *9+1 t 9 ) 
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Wanneer u na het doorworstelen van het vorige hoofdstuk nu het pro- 
gramma van uw leven wilt gaan schrijven, dan heeft u zeker wat aan de 
volgende programma’s 

De volgende programmaonderdelen werden door u ontworpen om 
speciaal uw administratieve programmatuur echt professioneel te ma- 
ken. 

Wanneer u de uitgebreide ingave -routine eenmaal hebt ingetikt, kunt u 
elke ingave in uw programma in één statement helemaal verzorgd rege- 
len. De gebruiker van uw programma (en dat hoeft u natuurlijk niet 
altijd zelf te zijn) kan niet meer over het beeldscherm heen wandelen 
met de pijltoetsen. Ook het lelijke ’redo from start’ verschijnt nooit 
meer op uw televisietoestel. Bovendien is het mogelijk om oude gege- 
vens te herzien en om ingaven tot een lengte van 255 tekens zonder 
een enkel probleem te laten verrichten. 

Deze ingaveroutine, de trots van dit boek, is dan ook wel de langste... 

Verderop ziet u dat het in MSX-basic mogelijk is om in een handom- 
draai een kopie van het (alfanumerieke) scherm op de printer te maken. 

Het in woorden omzetten van een bedrag (drieëntwintig gulden en 
vijfennegentig cent) is programmatechnisch een hele toer. Toch blijken 
er weer niet zoveel programmaregels voor nodig te zijn... 

Het vervaardigen van een annui'teitentabel is een werkje dat natuurlijk 
bij uitstek geschikt is voor de computer. 

Tenslotte ziet u aan de hand van een lijst-frame hoe u een deugdelijk 
lijstprogramma voor uw printer in elkaar moet steken. 
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Ingave routine 


MSX-basic geeft de gebruiker bij een input-bevel te veel vrijheid. 
Tijdens een input staat het de gebruiker vrij om bijvoorbeeld met de 
pijl-toetsen elke richting uit te 'wandelen’. 

De volgende routine, die bij uitstek geschikt is voor toepassing binnen 
wat meer professionele programma’s, damt deze vrijheid wat in. De 
gebruiker kan niet meer zo maar met de pijltoetsen elke kant uit wan- 
delen maar is verplicht om binnen het gestelde aantal karakters te blij- 
ven. 

Een uniek voordeel van deze routine is dat ingaven tot een lengte van 
255 tekens geheel verzorgd kunnen worden uitgevoerd. Wanneer de 
ingave buiten het beeld dreigt te vallen, reageert deze ingaveroutine 
plotseling als een soort muurkrant. De tekst wordt zo verschoven dat 
de laatste ingave altijd te zien is. Zo kan met deze routine een ingave 
van 32 posities op beeldschermlocatie 30,10 nog gemakkelijk worden 
uitgevoerd. 

De routine wordt als volgt aangestuurd: 

Voorafgaand dient 1$ met een besturingswaarde te worden gevuld: 

XXXX LET 1$=“ XXYYTTT A A” 

Op de plaats van XX dient de horizontale ingavepositie te worden op- 
gegeven. Op de plaats van YY dient de vertikale ingavepositie te wor- 
den opgegeven. Op de plaats van TTT dient het aantal maximaal in te 
geven tekens te worden ingevuld. 

Op de plaats van A---A (mag elke lengte hebben) kan uiteindelijk een 
tekst worden ingevuld die voor de ingave moet worden geplaatst. 

Nadat 1$ op de juiste wijze is ingevuld, kan door middel van een: 

XXXX GOSUB 10000 

de ingave worden bewerkstelligd. 

Eventueel kan een aan te passen (oude) waarde in IO$ worden meege- 
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geven. De uiteindelijke ingave komt in 11$ te staan. Wanneer geen 
oude waarde behoeft te worden meegegeven, dient 10$ voor de 
GOSUB 10000 te worden leeggemaakt. 

De volgende controletoetsen kunnen tijdens ingave worden gebruikt: 

pijl omhoog /INS = teken tussenvoegen 
pijl omlaag / DEL = teken verwijderen 
pijl naar links/rechts = door tekst ’wandelen’ 

Twee voorbeelden: 

1000 I $= " 00 1 0006PQSTK0DE " : I0*=" " 

1010 GOSUB 10000 


In bovenstaand voorbeeld werd een ingave van een postkode mogelijk 
gemaakt. Er kunnen niet meer dan 6 tekens worden ingegeven. De 
ingave wordt voorafgegaan door de tekst ’postkode:’ (de dubbele punt 
komt automatisch) en wordt links in het beeld op regel 10 uitgevoerd. 

1 000 I *= " 0003 1 280MSCHR I JV I NG " s I Q*=W* 
1010 GOSUB 10000 

Op regel 3 werd in dit geval een ingave van 128 tekens mogelijk ge- 
maakt. W$ bevat een eventueel aan te passen waarde en wordt in 10$ 
meegegeven. In dit geval dient de tekst te gaan hollen’ omdat er 
natuurlijk niet zomaar 128 tekens op een beeldschermregel kunnen 
worden ingegeven. 

Deze routine vereist de SCREEN 0 instelling terwijl een WIDTU 40 
dient te zijn uitgevoerd. 

Uiteraard dient met behulp van een CLEAR-statement een voldoende 
hoeveelheid string-ruimte te zijn ingericht. Een CLEAR 1024 is in een 
gemiddeld programma meestal wel genoeg. 

De programmalijst: 

1 00 00 REM ************************** 
lÖÖiÓ REM * INGAVEROUTINE * 
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1 0020 

REM 

* 


* 

1 0030 

REM 

* 

I$="XXYYTTTA A" 

* 

10040 

REM 

* 


* 

1 0050 

REM 

* 

XX=HOR . POSITIE 

* 

1 0060 

REM 

* 

YY=VEET. POSITIE 

* 

10070 

REM 

* 

TTT=AANT AL TEKENS 

* 

1 0080 

REM 

* 

A A= I NPUT-TEKST 

* 

1 0090 

REM 

* 


* 

10100 

REM 

* 

1 1 $= I NGAVERESULT A AT 

* 

10110 

REM 

* 

IO$=OUBE WAARDE 

* 

10120 

REM 

* 


* 

10130 

REM 

* 

TOETSEN : 

* 

10140 

REM 

* 

HOME =WISSEN INGAVE 

* 

10150 

REM 

* 

DEL -TEKEN WISSEN 

* 

10160 

REM 

* 

INS = TEKEN INVOEGEN 

* 

10170 

REM 

* 

RETURN =EINDE IMG AVE 

* 

1 0 1 80 

REM 

* 


* 

10190 

REM 

* 

PIJLEN: 

* 

1 0200 

REM 

* 

LINKS = CURSOR LINKS 

* 

1 02 1 0 

REM 

* 

RECHTS = CURSOR RECHTS 

* 

10220 

REM 

* 

OMHOOG = TEKEN INVOEGEN 

* 

1 0230 

REM 

* 

OMLAAG =TEKEN WISSEN 

* 

10240 

REM 

* 


* 

1 0250 

REM 

************************** 


10260 REM 

1 0270 X X=VAL ( LEFT$ ( 1 ** 2 ) ) : YY-VAL ( M I D* ( I $ 
, 3 , 2 ) ) :TT=VAL(MID$< I*>5,3) > : I I*=I0*i IP-L 
EN ( 1 1 $ > s I P= I P- ( I P-0 ) s I IS= I ï *+SPACE* (TT--L 
EN<II*> ) ï PG=0 

30280 LOCATE XX»YY: PRINT MÏD$( I$»8) 5 " : " 
?LEFT$< 1 1 $ f 46-LEN ( I $ ) ~ X X ) 5 

1 0290 X1=XX+LEN(I*>+IP-7:IF XI >38 THEN L 
nÖATE XX+LEN(I*>-6>YY:PRINT MID*(II*>X1~ 
88 ) 40 “POS ( O ) ) :X1=39 
10300 LOCATE XltYYfl 

10310 KK*=INKEY$sIF KK$=“ " THEN 10310 EL 
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SE KK=ASC<KK$> 

10320 IF tëK-2'8 THEN IP«IP+1+ ( IP*LEN ( 1 1* ) 
) : GOTO 10290 

10330 IF KK=29 THEN IP-ÏP-j.~< IP=1 ) :GOTO 
10290 

10340 IF KK-30 OR KK= 1 8 THEN II$=LEFT$(I 
1$, IP-D+" “+MID$( 11$, IP,LEN( 11$ )~IP) SPR- 
INT M I D$ ( I I $ , I P , 40- X 1 ) ; : GOTO 1 0290 
10350 IF KK=3 1 OR KK= 1 27 THEN IF IP<TT T 
HEN I I$=LEFT$(II$, IF'-l )+MID$( 11$, IP+1 ) + " 
'* SPRINT MID$< 11$, IP,40-X1> ! 8 GOTO 10290 
ELSE 10290 

10360 IF KK= 1 1 THEN IÜ$=" " sGOTO 10000 
10370 IF KK013 THEN 10420 
10380 QQ= 1 28 

10390 IF QQ >TT THEN QQ=QQ/28GOTO 10390 
10400 FOR I I=LEN< 11$) TO 1 STEP -QQslF R 
I GHT $ < 1 1 $ , QQ ) =SPACE$ ( 0 . 9 . ) THEN II$=LEFT$< 
11$, LEN (11$) -QQ ) ï NEXT II 
10410 IF QQ» 1 THEN RETURN ELSE QQ=QQ/2s G 
OTO 10400 

10420 IF KKC32 OR KK>126 THEN BEER: GOTO 
10290 

10430 M I D$ ( 1 1 $ , I F' , 1 ) =KK $ • PR I NT KK$SSIP*I 
P+lsIF IP>TT THEN IP=TT 
10440 GOTO 10290 
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Screen O copy 


Het volgende programma is een kleine subroutine die u bij een bestaand 
programma kunt opnemen. Met deze subroutine kunt u, mits u onder 
SCREEN 0 werkt, van uw beeldscherminhoud een kopie op uw printer 
maken. Een simpele GOSUB 10000 in uw programma is genoeg om 
deze ”hardcopy” te maken. 

De programmalijst: 

10 REM ************************* 

20 REM * HARD COPY SCREEN 0 * 

30 REM * * 

40 REM ************************* 

50 REM 

10000 FOR R=Ö TO 23SF0R T=Ü TO 39 
1 00 1 0 C« VPEEK < BASE ( 0 > +R*40+T ) 

10020 LPRINT CHR$(C)ï 
10030 NEXT T 
10040 LPRINT 
10050 NEXT R 
10060 RETURN 
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Screen 1 copy 


Het volgende programma is een kleine subroutine die u bij een bestaand 
programma kunt opnemen. Met deze subroutine kunt u, mits u onder 
SCREEN 1 werkt, van uw beeldscherminhoud een kopie op uw printer 
maken. Een simpele GOSUB 10000 in uw programma is genoeg om 
deze ”hardcopy” te maken. 

De programmalijst: 

IC) REM ************************* 

20 REM * HARD COPY SCREEN 1 * 

30 REM * * 

40 REM ************************* 

50 REM 

10000 FOR R=0 TO 23:F0R T=0 TO 31 
1 00 1 O C=VPEEK ( BASE ( 5 ) +R*32+T ) 

1 0020 LPR I NT ÜHR$ ( C 5 ? 

10030 NEXT T 
10040 LPR INT 
10050 NEXT R 
10060 RETURN 
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Bedrag in woorden 

In een enkel geval kan het nodig zijn dat een bedrag niet alleen in 
cijfers maar ook in letters dient te worden geschreven. Dit geldt 
bijvoorbeeld bij het invullen van bijvoorbeeld een cheque of kwitantie. 

Het volgende programma zet, precies zoals het hoort, elk willekeurig 
bedrag onder de fl. 999.999.999.999,99 in een ’letterbedrag’ om. Het 
bedrag fl 2345,67 wordt bijvoorbeeld omgezet in TWEE DUIZEND 
DRIEHONDERDVIJFENVEERTIG GULDEN EN ZEVENENZES- 
TIG CENT. 

Het uiteindelijke letterbedrag komt in de variabele B$ te staan. Door 
kleine wijzigingen aan te brengen, kan dit progamma binnen vele an- 
dere programma’s worden ingepast. 

De programmalijst: 

10 REM ************************* 

20 REM * BEDRAG IN WOORDEN * 

30 REM * * 

40 REM ************************* 

50 REM 

60 CLEAR 1024 ï DIM A$(27)ïF0R 1=1 TO 27:R 
EAD A$ ( I ) * NEXT I 

70 DATA "EEN" t "TWEE" t "DRIE" » "VIER" * "VIJF 
« i " ZES" , " ZEVEN” t “ACHT" » "NEGEN" # "TIEN" * "E 
LF " , 11 TWAALF" ♦ "DERTIEN" > "VEERTIEN" t "VI JFT 
IEN" » " ZESTIEN" t " ZEVENTIEN" , "ACHTTIEN" , "N 
EfiENTIEN" » "TWINTIG" » “DERTIG" > “VEERTIG" » “ 
VIJFTIG" » "ZESTIG" » "ZEVENTIG" > "TACHTIG" * " 
NEGENTIG" 

80 INPUT "BEDRAG *'5B 

90 M=0sB$*"" sIF B< O THEN B$= "MINUS ":B=- 
B 

100 IF B=0 THEN B$= "NIHIL"! GOTO ISO 
1 1 0 A= I NT < B/ 1 000000000# ) : B~B~A* 1 00000000 
O ; ; I F A THEN OOSUB, i 90 :B$=B$+ "MILJARD " 
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120 A= I NT (B/1 000000# ) :B=B-A* 1000000! :IF 
A THEN GO SUB 1 90 :B3>=B*+" MILJOEN " 

130 A= INT < B / 1 000 ) - B=B- A* 1 000 ! ï I F A THEN 
GOS UB 190ïB*=B$+"DUIZEMD " 

140 A=B\ 1 ! B=B“A ï IF A THEN GOSUB 190 
150 IF M THEN B*=B*+" GULDEN" : IF B THEN B 
EN H 

160 A=i00*B\ 1 ï IF A THEN GOSUB 190:B$=B$+ 
"CENT" 

170 B$=B$+" . " 

180 PRINT B$ïGOTO 80 

190 M= 1 ï C=A \ 1 00 ï A= A- 1 00*C • I F C THEN B$=B 
$+ A$ ( C ) + " HONDERD " 

200 IF A=0 THEN 240 

210 IF A< 20 THEN B*=B*+A* ( A ) sGOTO 240 
220 C= A\ 1 0 s A=A~ 1 0#C • I F A THEN B$=B$+A*<A 
) +"EN" 

230 B$=B$+A$ ( C+ 1 8 ) 

2A0 B$=B$+" RETURN 


76 



Annuïteiten 


Een annuïteitenlening (hypotheek) is een lening waarbij je elke perio- 
de een vast bedrag moet aflossen. In dat bedrag zit steeds een gedeelte 
rente en een gedeelte schuldaflossing. Deze gedeelten bij elkaar geteld 
geven altijd een vast bedrag: de annuïteit. 

Een annuïteitenlening is veilig maar duur. Veilig omdat u steeds op 
een vast aflossingsbedrag kunt rekenen. Duur omdat u de eerste tijd 
erg veel rente betaalt en bijna niets aflost. 

Het berekenen van een annuïteit is een hele kunst. 

In het volgende programma dient u het te lenen bedrag (kapitaal), een 
rentepercentage en een aantal periodes in te geven. Pas op dat u de 
rente per periode opgeeft. Is de rente 10% per jaar en heeft u als perio- 
de een half jaar genomen, geef dan 5% rente op! 

Aansluitend aan uw ingaven verschijnen de berekende gegevens van de 
lening alsmede een aflossingstabel over het aantal opgegeven periodes. 

Door de PRINT in een LPRINT te veranderen, krijgen we de tabel op 
papier. 

De programmalijst: 

10 REM ************************* 

20 REM * ANNUI TE I TENTABEL * 

30 REM * * 

40 REM ************************* 

50 REM 

/-.O KEY OFFs SCREEN OsWIDTH 40 :CLS SPRINT " 
ANNU I TE I TENBEREKEN I NG " : LOCATE 0 , 2 
70 DEFFNR ( X ) =SGN ( X ) * I NT ( ABS ( X ) * 1 00+ . 5 > / 1 
00 

80 INPUT "KAPITAAL " ;K 

90 INPUT "RENTEPERCENTAGE "?P 

100 INPUT "AANTAL ANNUÏTEITEN » ?A 
110 P--P/1 00 : N=FNR ( K*P* ( P + 1 ) A / ( ( P+ 1 ) •"' A- 1 
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) ) ll 

120 CLS SPRINT USING "KAPITAAL : #######. 
##« ?K 

130 PRINT IJS ING "RENTE ! ## . ## 7." ?P*1 
00 

140 PRINT USING "ANNUÏTEIT: #######.##"; 


ISO PRINT " AFLOSS I NGSSCHEMA : " 

160 PRINT 

« SPRINT "JA AR RENTE 

NG SCHULDREST" : PR INT " 


AFLOSS I 


170 RS-K : FOR 1 = 1 TO A ï RE=FNR ( P*RS ) : AF=N- 
RF : RS-RS-AF : I F I=A THEN AF=AF+RS ï RS=0 
1RO PRINT USING "###: #######.## ####### 
.## #######.##" 5I5RE? AF SRSSNEXT I sSTÜP 
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Lijstframe 



De struktuur van een programma levert vele amateurs vaak een pro- 
bleem. De vraag: „Hoe pak ik een dergelijk programma nu aan?” 
wordt dan ook vaak gehoord. 

Wanneer een MSX-er in het gelukkige bezit is van een printer, zal hij 
hierop onder meer ook graag gegevens lijsten. Dit lijsten moet natuur- 
lijk in een beetje mooie vorm gebeuren, bijvoorbeeld met een vast 
aantal regels per blad, met boven elk blad een kop en het bladnummer 
en zó, dat er niet op de scheurrand wordt afgedrukt. 

Het onderslaande FRAME is geen programma maar is slechts een op- 
zet van hoe een eenvoudig lijstprogramma er uit dient te zien. 

Dit FRAME bevat de struktuur van het programma; het feitelijke pro- 
gramma dient in deze struktuur te worden ingebouwd. 

Op regel 70 dient het bestand waaruit de gegevens worden gelijst, te 
worden geopend. Op regel 80 dient een einde-bestands-controle te 
worden uitgevoerd. Indien er inderdaad geen gegevens meer af te 
drukken zijn, dient naar regel 170 te worden gesprongen. Op regel 
90-99 dienen alle gegevens te worden ingelezen die nodig zijn voor het 
afdrukken van een regel. Op regel 110-119 dient het afdrukken van 
een regel te worden geprogrammeerd. Op regel 120 wordt de regeltel- 
ler (R) dan met het aantal afgedrukte regels verminderd. Uiteindelijk 
dient op regel 150-159 de boven de bladzijde te verschijnen kop te 
worden geprogrammeerd. De variabele B bevat het bladnummer. 

De programmalijst: 

10 REM ************************* 


20 REM * LIJSTFRAME * 

30 REM * * 


40 REM ************************* 

50 REM 
60 R-0 ! B=0 

70 REM BESTAND OPENEN 

80 REM EERSTE /VOLGENDE GEGEVEN INLEZEN 
90 REM EINDE? DAN GOTO 170 
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100 IF R=0 THEN R=50 : B=B+ 1 : GOSUB 140 
110 REM PRINT REGEL 

120 REM VERMINDER R MET AANTAL AFGEDRUKT 

E REGELS 

130 GOTO 80 

140 L PR INT CHR$ (12) 

ISO REM KOPTEKST AFDRUKKEN. B=BLADNR. 

160 RETURN 

170 LPRINT CHR*( 12) «CLOSE 
180 STOP 
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Karakters op beeld 
en op de printer 
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Niet iedere MSX-er heeft een printer. En heeft iemand dan een printer, 
dan zal het vaak een printer blijken te zijn die niet standaard MSX is. 

Zo’n printer heeft vaak een scala van verborgen mogelijkheden. 

Met de volgende programma’s kunt u onderzoeken wat uw printer nu 
eigenlijk waard is... 
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Karaktertabel 


Het volgende programma geeft een overzicht van alle MSX-karakters 
die op een of andere wijze zijn te verkrijgen. 

Door van PRINT een LPRINT te maken, kan eventueel een overzicht 
op de printer worden verkregen. 

Een niet-MSX-printer zal voor vele specifieke karakters echter een to- 
taal ander beeld geven. 

De programmalijst: 

10 REM ************************* 

20 REM * KARAKTERTABEL * 

30 REM * * 

40 REM ************************* 

50 REM 

60 SCREEN OSWIDTH 40 s CLS 
70 FOR 1=0 TO 255 STEP 4 

80 PRINT CHR$ ( 1 ) +CHR$ ( 86 ) 5 s FOR J=I TO 1 + 
3: PR INT US INC " ###: "ïJï 
90 IF J<32 THEN PRINT CHR*U )+CHR$( J+64) 
5 ELSE PRINT CHR$ ( J ) 5 

100 PRINT " " ■ CHR$ ( 1 ) +CHR$ ( 86 ) ï : NEXT JïP 
RINTSNEXT I 
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Controle karakters 1 


Vele MSX-ers hebben aan hun computer een niet-MSX-printer. Dit is 
geen probleem zolang je maar geen gebruik maakt van de speciale 
MSX-karakterset. 

Zo’n ’vreemde’ printer heeft nogal eens mogelijkheden die je op het 
eerste gezicht niet zou verwachten. Zo kunnen veel printers breed of 
juist smal afdrukken. Sommige printers kunnen automatisch onder- 
lijnen of naar een andere karakterset overstappen. 

Het volgende programmaatje kan u helpen om een gedeelte van deze 
mogelijkheden op de sporen. Steeds zendt het progamma een zoge- 
naamd controlekarakter naar de printer. Aan u om te zien wat de 
printer met dit controlekarakter doet. 


Wanneer een bepaald effekt u bevalt, noteer dan de op het scherm 
vermelde CHR$-waarde. Deze waarde kunt u voortaan afdrukken op 
de printer om het bedoelde effekt te bereiken. 

Een heel bekend stuurkarakter is de CHR$(12). In bijna alle gevallen 
resulteert dit karakter in het opschuiven van het papier over een ge- 
heel vel. Door in een programma het kommando: 

XXXX LPRINT CHR*(12>? 

op te nemen, kan een nieuw vel papier worden worden voorgeschoven. 
De programmalijst: 

10 REM ************************* 

20 REM * TESTPROGRAMMA VOOR * 

30 REM * CONTROLE KARAKTERS * 

40 REM * * 

50 REM ************************* 
lo REM 

70 SCREEN OsCLSïWIDTH 40:PRINT ,, C0NTR0LEK 
ARAKTERS TESTEN OP PR ENTER" 
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80 FOR 1=0 TO 31 

90 LQCATE O# 3 SPRINT " CQNTROLEKAR AKTER CH 
R$ < " 5 MI D* < 8TR$ < I ) » 2 ) 5 " ) WORDT GETEST . " 
100 LOCATE 12» 6 SPRINT "GEEF RETURN" 

130 I F I NKEY*< >CHR* (13) THEN 1 1 O 

120 LPRINT CHR$ ( I > ? "DIT IS EEN PRINTERTE 

ST" sNEXT I 
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Controle karakters 2 


Vele MSX-ers hebben aan hun computer een niet MSX-printer, Dit is 
geen probleem zolang je maar geen gebruik maakt van de speciale 
MSX-karakterset. 

Zo’n "vreemde” printer heeft nogal eens mogelijkheden die je op het 
eerste gezicht niet zou verwachten. Zo kunnen veel printers breed of 
juist smal afdrukken. .Sommige printers kunnen automatisch onderlij- 
nen of naar een ander karakterset overstappen. 

Het volgende programmaatje kan u helpen om een gedeelte van deze 
mogelijkheden op te sporen. Steeds zendt het programma een zoge- 
naamd escape-karakter naar de printer. Aan u om te zien wat de printer 
met dit kontrolekarakter doet. 

Wanneer een bepaald effekt u bevalt, noteer dan de op het scherm ver- 
melde CHR$-waarden. Deze waarden kunt u voortaan op de getoonde 
wijze afdrukken op de printer om het bedoelde effekt te bereiken. 

De programmalijst: 

10 rem ************************* 

20 REM * TESTPROGRAMMA VOOR * 

30 REM * ESCAPE KARAKTERS * 

40 REM * * 

50 REM ************************* 

70 SCREEN O ïCLSs WIDTH 4QsPRINT"ESCAPE-KA 
RAKTÉRS TESTEN OP PRINTER” 

80 FOR 1=0 TO 255 _ 

90 LOCATE 0 1 3 s PR INT "ESG-KAR. CHR*<z7)+l: 
HR$ ( " 5 M I D$ ( STR$ ( I ) » 2 > ï " ) WORDT GETEST." 
100 LOCATE 12 PRINT "GEEF RETURN" 

110 I F I NKE Y*< >CHR$ (13) T HEN 110 

120 LPRINT CHR$(27)+CHR$< I) 5 "DIT IS EEN 

PRINTERTEST" :NEXT I 
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Een stapje voorbij 

BASIC 
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Behalve in BASIC is een MSX-computer natuurlijk ook in machinetaal 
te programmeren. Ook kunnen reeds in het ROM aanwezige machine- 
taalprogramma’s met een klein truukje worden aangesproken. 

Nee, laat u zich nu niet meteen afschrikken, in de volgende voorbeelden 
plukt u de vruchten van bepaalde machinetaalprogramma’s zonder dat 
u er veel van hoeft te begrijpen. 

We doen een klein stapje buiten het oude vertrouwde MSX-basic en 
verbazen ons over de mogelijkheden die daar op ons liggen te wachten. 

Het doen van een koude start zal niemand ontroeren. Het laten opflit- 
sen van het beelscherm is al veel leuker. 

Het via het programma automatisch overstappen van kleine naar grote 
letters en andersom kan heel goed van pas komen. 

Via een klein truukje kunnen we bepaalde processen (muziek, ingave) 
tot een voortijdig einde brengen. 

Grappig is het om te zien dat zelfs het CAPS LOCK lampje vanuit het 
programma kan worden bestuurd. 

Bij lijstprogramma’s is het heel handig om vooraf eerst te kunnen be- 
palen of de printer wel goed staat. 

Het kunnen werken met in totaal tien verschillende (alfanumerieke) 
schermen die in nog geen tiende van een sekonde onderling uitwissel- 
baar zijn, biedt grote mogelijkheden wanneer men denkt aan het pro- 
grammeren van bijvoorbeeld een stukje tekstverwerking. 

Het ingeven van NEW hoeft niet te betekenen dat u dat programma 
ook kwijt bent. U kunt het eventueel terughalen... 

Al is Microsoft nog zo snel, de amateur achterhaalt haar wel. Een pro- 
gramma waarmee het lekker toch mogelijk is om een ROM-dump op 
floppy te maken. Moet u wel een floppy eenneid hebben natuurlijk... 

Uiteindelijk zijn de fouten die u kunt maken, direkt uit het ROM op 
te vissen... 
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Koude start 


Aan het einde van een bepaald programma kan het wel eens wenselijk 
zijn dat de computer geheel opnieuw opstart, alsof hij uit en aan werd 
geschakeld. 

Zo’n hernieuwde start noemt men in het engels een ’cold boot’ ofwel, 
vrij vertaald, een koude start. 

Het volgende, heel simpele routinetje laat zien hoe we koud kunnen 
starten. 

De programmalijst: 

10 REM ************************* 

20 REM * KOUDE START * 

30 REM * * 

40 REM ************************* 

50 REM 

60 DEF USR-0 
70 PRINTUSR(O) 
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Flitser 


Het volgende, hele kleine programma laat uw beeldscherm aan en uit 
flitsen totdat u een toets ingeeft. 

Misschien leuk om in bijvoorbeeld spelprogramma’s toe te passen... 

De programmalijst: 

iö RFM ************************* 

20 REM * FLITSER * 

30 REM * * 

40 REM ************************* 

«=;Ö REM 

la DEFUSR0=65 : DEFUSR 1 =68 = U=USR < 0 > « F OR 1 = 
1 TO ICOïNEXT IiU-USRUOiFOR 1 = 1 TO 100 
:NEXT ÜIF INKEY$=" " THEN GOTO 60 ELSE S 

TOP 
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Kleine letters /Grote letters 


De CAPS-LOCK toets kan op een MSX-computer worden vastgezet 
om continu hóófdletters te verkrijgen. 

Wanneer we later weer kleine letters willen kunnen ingeven, kunnen 
we deze toets ook weer ontgrendelen. 

Deze toets kunnen we via een heel eenvoudig stukje programmatuur 
ook ontgrendelen en wel als volgt : 

De programmalijst: 

10 REM *************************** 

20 REM * KLEINE LETTERS * 

30 REM * * 

40 REM *************************** 

50 REM 

60 P0KE 64683 ! # 0 


Grote letters 


De CAPS-LOCK toets kan op een MSX-computer worden vastgezet 
om continu hoofdletters te verkrijgen. 

Deze toets kunnen we via een heel eenvoudig stukje programmatuur 
ook vast zetten en wel als volgt: 

De programmalijst: 

10 REM *************************** 

20 REM * GROTE LETTERS * 

30 REM * * 

40 REM *************************** 

50 REM 

60 POKE 64683! #255 
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Ingavebuffer leeg 


In MSX-BASIC kunt u een flink aantal karakters vooruit intoetsen. 
Deze tekens worden bewaard in een zogenaamde ingavebuffer en 
gebruikt wanneer er bijvoorbeeld een INPUT-kommando wordt uitge- 
voerd. 

In een enkel geval kan het zo zijn dat vooruitgetoetste gegevens niet te 
pas komen. Wanneer het programma door een keurig afgevangen fout 
in een onverwachte ingaveroutine komt, kan vooruit ingetoetste infor- 
matie weleens heel vervelend werken. 

Het volgende programmaatje toont u hoe u de ingavebuffer in een 
klap leeg kunt maken. 

De programmalijst: 

10 REM ************************* 

20 REM * INGAVEBUFFER LEEG * 

30 REM * * 

40 REM ************************* 

50 REM 

60 DEFUSR 1-342 
70 U-USRKO) 
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Muziek uit 


Het volgende programma laat u zien hoe u de met PLAY opgestarte 
muziek voortijdig kunt uitschakelen. 

Wanneer u een spelprogramma ontwerpt, dan kan het zijn dat u een 
bepaald thema wilt laten spelen totdat een toets wordt ingedrukt of 
een doel wordt geraakt. In dat geval is dit programma nuttig; de uit- 
voering van het PLAY-kommando wordt onmiddellijk stopgezet. 

De programmalijst: 

10 REM ************************* 


20 REM * MUZIEK UIT * 

30 REM * * 


40 REM ************************* 
50 REM 

60 DEFUSR-144 
70 U“USR<0) 
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Caps-lock knipper 


Door het volgende, kleine machinetaal programmaatje kan men het 
CAPS-LOCK lampje op de MSX-computer aan- of uitzetten. Er wordt 
echter niet automatisch van hoofdletters op kleine letter omgeschakeld. 

In de string RIS wordt de machinetaalroutine opgeslagen. Deze string 
mag verder door het programma niet meer worden gebruikt. In verband 
met automatische geheugenreorganisaties die MSX zo nu en dan uit- 
voert, is het noodzakelijk om Rl$ zo snel mogelijk na een CLEAR- 
kommando te vullen. 

Door in het BASIC-programma na deze routine USR4(0) te gebruiken, 
wordt automatisch het CAPS-LOCK lampje aangezet. Met een USR4(1) 
gaat het lampje wwer uit. Wanneer u tussen haakjes een variabele wilt 
gebruiken, dan dient deze variabele INTEGER te zijn. 

Het volgende programma laat het CAPS-LOCK lampje knipperen: 

200 A7.=USR4 ( A7.=0 ) 

210 FOR 1=1 TO lOOïNEXT I 
220 GOTO 200 

Door de FOR-NEXT loop op 210 te veranderen, kan men het lampje 
sneller of langzamer laten knipperen. 

De programmalijst: 

10 REM ************************* 

20 REM * CAPS-LOCK KNIPPER * 

30 REM * * 

40 REM * U8R4 ( 0 / 1 ) = A AN /UIT * 

50 REM ************************* 

60 REM 

70 CLEAR 200: FOR 1 7.=0 TO 32767: RE AD A7.:I 
F A7.>-1 THEN Ri$=Ri*+CHR*(A7.) :NEXT 17. EL 
SE DEFUSR4=PEEK ( 0 ARPTR ( R 1 $ ) + 1 )+PEEK(VARP 
TR(Rl*)+2> *256 : DATA 58 , 248 > 247 > 205 > 50 * 1 * 
201 >-i 
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Printer ready routine 


Het volgende kleine machinetaal programmaatje maakt het mogelijk 
om in een BASIC-programma te bepalen of er een printer gebruiksklaar 
is aangesloten. 

Een behulpzame routine wanneer een fool-proof programma dient te 
worden geschreven. 

In de string R3$ wordt de machinetaalroutine opgeslagen. Deze string 
mag verder door het programma niet meer worden gebruikt. In verband 
met automatische geheugenreorganisaties die MSX zo nu en dan uit- 
voert, is het noodzakelijk om R3$ zo snel mogelijk na een CLEAR- 
kommando te vullen. 

Wanneer de funktie USR7(0) als resultaat de waarde 0 geeft, is er geen 
printer gebruiksklaar aangesloten (er is geen printer of de printer staat 
niet goed ingesteld). Indien de funktie USR7(0)de waarde 255 geeft, 
is de printer in orde! 

De programmalijst: 

10 RFM ************************* 

20 REM * PRINTER READY ROUTINE * 

30 REM * * 

40 REM * USR7 ( 0 ) GEEFT 255 BIJ * 

50 REM * READY» 0 BIJ NIET RDY * 

60 REM ************************* 

70 REM 

80 CLEAR 200 : FÜR 1 7.=0 TO 32767: READ A7.:l 
F A7.>-1 THEN R3$=R3$+CHR$ ( A7. ) : NEXT 17. EL 
SE DEFUSR7=PEEK ( VARPTR < R3* ) + 1 ) +PEEK ( VARP 
TR ( R3* ) +2 ) *256 : DATA 205 » 1 68 » O » 50 » 248 » 247 
» 201 »-l 
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9 schermen wisselen 


Het volgende machinetaal programma maakt het mogelijk om negen 
alfanumerieke schermen tegelijk in het geheugen op te slaan. Het op- 
slaan en ophalen van een compleet beeldscherm kost een fraktie van 
een sekonde. 

Dit programma is van bijzonder veel nut wanneer men administratieve 
programma’s wil gaan schrijven (b.v. tekstverwerking). 

In de string R2S wordt de machinetaalroutine opgeslagen. Deze string 
mag verder door het programma niet meer worden gebruikt. In verband 
met automatische geheugenreorganisaties die MSX zo nu en dan uit- 
voert, is het noodzakelijk om R2$ zo snel mogelijk na een CLEAR- 
kommando te vullen. 

Door in een programma de funktie USR6 (beeldschermnummer) op te 
nemen, wordt het op dat moment zichtbare scherm onder het opgege- 
ven nummer opgeslagen. Een eenmaal opgeslagen beeldscherm kan 
door gebruik van USR5 (beeldschermnummer) wordt het onder dat 
nummer opgeslagen beeldscherm weer teruggcplaatst. 

Wanneer voor beeldschermnummer een variabele wordt gebruikt, dient 
deze variabele wel INTEGER te zijn. Een variabele met %-teken (bij- 
voorbeeld 1%) is in ieder geval integer. 

Pas op: wanneer een verkeerd beeldschermnummer wordt gebruikt, 
kan het programma worden opgeblazen ! ! ! 

De opgeslagen beeldschermen vereisen 1 kilobyte per stuk. De betref- 
fende geheugenruimte wordt in deze routine met een CLEAR gereser- 
veerd. 

De programmalijst: 

10 REM ************************* 

20 REM * WISSELEN 9 SCHERMEN * 

30 REM * * 

40 REM * OPHALEN = USR5(0/8> * 

50 REM * OPSLAAN = USR610/8) * 
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60 REM * 0/8 = SCHERMNUMMER * 

70 REM ****************x-******** 

80 REM 

90 SCREEN OsCLSsKEY OFFïWIDTH 40SCLEAR 2 
00 #49151!» DATA 1*0*4*17*0*0» 58 » 248 1 247 1 1 
35 » 135» 1 98 » 1 92 » 1 03 *46*0» 205 » 92 » O » 20 1 » 1 •» O 
» 4 » 33 » O » 0 . 58 » 248 ♦ 247 » 1 35 » 1 35 » 1 98 #192» 87 » 
30 » O # 205 1 89 1 O * 20 1 » - 1 

100 FOR 17. -O TO 32767 ! RE AD A7.ïIF A7.>-1 T 
HEN R2*=R2$+CHR*(AX)sNEXT 17. ELSE I=VARP 
TR ( R2$ ) : I*PEEK( 1 + 1 ) +256* REEK < 1+2 > : DEF IJS 
R5=I : DE F USR6= 1+20» FOR A7.=0 TO 8:A7.=USR6 
(A7.)ïNEXT A7. 
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Old 


Enkele BASIC-talen hebben het kommando OLD. Dit kommando haalt 
een per ongeluk met NEW gewist programma weer terug. 


Het per ongeluk intikken van NEW gebeurt ^ ere . e " * e ' ee " ke " e " 
dan meestal net wanneer men nog met heeft geSAVEd. Een OLD- 
kommando is op zo’n moment goud waard. 


MSX-basic kent helaas geen OLD-kommando. Door een truukje echter 
is het toch mogelijk om een met NEW gewist programma weer terug te 
halen. Dit gaat als volgt. 

ONMIDDELLIJK na de per ongeluk ingegeven NEW dient het volgende 
te worden ondernomen: 


Tik in: 

POKE 32770» 128 


LIST 

De eerste regel van het verloren programma verschijnt. Onthou het 
nummer van deze eerste regel. 


Tik nu in : 

POKE 32769» 1 

en verwijder de eerste regel door alleen het regelnummer in te geven. 


Geef vervolgens in: 

LIST 

Het programma wordt op beeldscherm gelijst; het eerste deel van de 
reddingsoperatie is achter de rug. We zijn er echter nog met; het pro- 
gramma kan nog niet zomaar worden geSAVEd. Save het programma 
nu niet op de normale wijze maar gebruik de A-optie. Het bijna geredde 
programma kan bijvoorbeeld als volgd worden geSAVEd: 


98 



SAVE "TEST" t A 


Nadat het programma op deze wijze is geSAVEd, de computer uit en 
weer aan zetten en het programma weer laden met het LOAD- 
kommando. Pas wanneer dat goed lukt, is het programma definitief 
gered! 

Werk wel heel nauwkeurig; een enkele tikfout en het programma is de- 
finitief verloren... 


' 1 

f ! 

Error-lijst 1 


Het volgende programmaatje haalt de in het standaard MSX moge- 
lijkerwijs optredende fouten direkt uit het ROM-geheugen. Een klein, 
makkelijk in te tikken programma en toch de volledige foutlijst! 

Wanneer u een printer heeft, verandert u de PRINT gewoon in een 
LPRINT en u krijgt de lijst op papier... 

De programmalijst: 

10 REM ************************* 

20 REM * ERROR-LIJST * 

30 REM * * 

40 REM ************************* 

50 REM 
60 F*= u " 

70 FOR 1=15734 TO 32768! 

80 IF REEK ( I ) =0 THEN F=F+1-24*(F=25> sRRI 
NT US I NG "## = &" ;F!F$!F$= h " ! IF F =59 THE 
N STOP ELSE ELSE F*=F*+CHR* ( REEK ( I ) > 

90 NEXT I 

100 1=1+1 sIF REEK ( I ) >0 THEN F$=F*+CHR*(P 
EEK< I ) ) s GOTO 100 ELSE RETURN 
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ROM-dump 

‘V 

De doorgewinterde MSX-er met schijveneenheid heeft vast wel eens 
geprobeerd om de inhoud van het MSX-BASIC ROM op schijf te 
zetten om het te kunnen bestuderen (bijvoorbeeld met behulp van een 
RECOURCE-programma). Echter, het geëigende bevel om dat te 
doen: / 

100 BSAVÉ " ROM . DMP %0> 327 67 

gaat mis; MICROSOFT heeft haar spullen goed beschermd. 

Echter, wie het laatst lacht, lacht het best. Met het volgende pro- 
gramma kan toch in no time een 32 kilobyte dump van het MSX-ROM 
worden gemaakt! 

Het geheim schuilt hierin, dat het programma reeds gedeclareerde 
string-variabelen plotseling in het MSX-ROM laat ’pointen’. Vervol- 
gens worden deze variabelen gewoon op schijf geschreven! 

De programmalijst: 

10 REM ************************* 


20 REM * ROM-DUMP * 

30 REM * * 

40 REM * DUMP DE ROM- INHOUD OP * 
50 REM * EEN FLOPPY DISK. * 


60 REM ************************* 
70 REM 

80 OPEN "ROM. DMP" AS 1 
90 FIELD 1 » 1 28 AS Q*»128 AS R* 
100 A$=" ,, :B$="" 

110 FOR H=0 TO 127 
120 POKE VARPTR ( A$ ) » 1 28 
130 POKE VARPTR <A$)+lt O 
140 POKE VARPTR < A$ ) +2 1 H 
150 POKE VARPTR <B*>» 128 
160 POKE VARPTR <B$>+1» 128 
170 POKE VARPTR ( B$ ) +2 » H 
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180 LSET Q$=A$ïLSET R*=B$ 
190 PUT 1 SPRINT " ? 

200 NEXT H 
210 CLOSE! STOP 


102 



Nog wat 
rekenwerk 
tot besluit 





Het eerste programma stelt u in staat om elke talstelselconversie te 
maken. Voortaan geen gemier meer met aparte routines voor omre- 
kenen van decimaal naar octaal, van decimaal naar hexadecimaal, van 
octaal naar binair enzovoorts. Eén allesomvattend programma van nog 
geen vijftien statements doet het werk voor u... 

Het berekenen van priemgetallen is een karweitje dat wel aan uwMSX- 
computer is toevertrouwd. 

Het berekenen van fakulteiten kan in één regel worden geprogrammeerd 
maar dan moet dit wel recursief gebeuren; een moeilijke techniek die 
vele hoofdbrekens kost, vooral in BASIC. Velen van u zullen deze re- 
cursie, die ook in het talstelselprogramma voorkomt, maar ten dele 
begrijpen. Gelukkig werken de programma’s feilloos en dat is het voor- 
naamste... 

In deel 2 van de serie MSX truuks en tips gaan we gewoon verder met 
nog eens een hondertal bladzijden boordevol nuttige programma’s en 
programmeertips. 
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Talstelselconversie 


Het volgende programma stelt u in staat om van elk willekeurig talstel- 
sel naar een ander stelsel om te rekenen. Hiertoe vraagt de computer u 
eerst naar welk ander stelsel u om wilt rekenen. Hierna kunt u getallen 
opgeven; de computer rekent ze voor u om. 

Wanneer u een ingave terug wilt, kunt u de waarde ”0” ingeven. 

Het laagste talstelsel waarin gewerkt kan worden is (uiteraard) het 
tweetallig stelsel. Het hoogste talstelsel dat is toegestaan, is het achten- 
dertigtallig stelsel!!! 

De programmalijst: 

10 REM ************************* 

20 REM * TALSTELSELCONVERSIE * 

30 REM * * 

40 REM ************************* 

50 REM 

60 POKE 64683 ! * 255 

70 INPUT "VAN STELSEL "5VïIF V=0 THEN S 
TOP ELSE IF V>36 THEN 70 
80 INPUT "NAAR STELSEL "SNïIF N=0 THEN 7 
O ELSE IF V=N OR N>36 THEN 70 
90 INPUT "GETAL " ;G$:IF 6*="0" THEN 80 
100 0=0 : FOR 1 = 1 TO LEN ( G$ ) * C$=M I D$ ( G$ » I » 
1) 

HO IF C$<"0" OR ( C$ > ‘‘ 9 " AND C$<"A"> OR 
C$>"Z" THEN 90 

120 C= ASC ( C$ ) -48+7* ( > " @ " > s I F OV-i THE 
N GOTO 90 

180 g=ö*V+C ; NEXT I : 1=1 :N$=" " ïGOSUB 150 
140 print 6$ ; " ( " ; V ;">="; m ; " < " ; N ; " ) . " J GO 
TO 90 

150 IF N""‘K=G THEN 1 = 1 + 1 ïGOSUB 150 
1 60 I = I - 1 : C= I NT ( G/N'"' I ) : Ü=Ü-C*N- I ï C=C+48- 
7* ( 09 ) : N$=N$+CHR$ CC): RETURN 
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Priemgetallen 


Priemgetallen zijn getallen die alleen deelbaar zijn door het getal 1 en 
door zichzelf. Alle overige delingen geven gebroken resultaten. 

Het bepalen van priemgetallen, vooral de wat grotere, is een moeilijk 
rekenwerk. Een geknipt werkje voor de computer dus. 

Het onderstaande programma bepaalt de priemgetallen vanaf 1 en 
blijft dit net zolang doen totdat u het programma (met CTRL-STOP) 
onderbreekt. 

De programmalijst: 

1 r» rem *********************** 

20 REM * PRIEMGETALLEN * 

30 REM * * 

40 REM *********************** 

50 REM 

60 WIDTH 40 s CLS 

70 PRINT " 1 2 3" * 

80 FOR 1=5 TO 1E+40 STEP 2 
90 FOR J=3 TO SQR ( I ) STEP 2 
100 IF Ï/J=I\J THEN GOTO 120 
110 NEXT J SPRINT USING "#####"51 5 
120 NEXT I 
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Fakulteit 


De fakulteit van een getal is zijn vermenigvuldiging naar 1. Zo is 3 
fakulteit (we schrijven ”31”) gelijk aan 3x2x 1=6. 

5! is zo gelijk aan 5x4x3x2x1=120. 

Vooral wanneer de getallen groot worden, wordt het berekenen van 
fakulteiten echt een karweitje voor de computer. 

De volgende routine laat zien hoe heel kort het fakulteitsprobleem 
kan worden opgelost. 

Deze routine is recursief. Dat wil zeggen dat hij zichzelf aanroept. In 
eerste instantie lijkt dat een foutje maar het is heel bewust gedaan! En 
hij werkt, probeer maar eens. 

Hoe deze routine werkt, zal velen een raadsel blijven. Dat hij werkt, 
staat echter vast! 

Een ”GOSUB 1000” geeft in de variabele F de fakulteit van N. 
De programmalijst: 

10 REM ************************* 

20 REM * FAKULTEIT * 

30 REM * — * 

40 REM ************************* 

50 REM 

1000 IF N >0 THEN N =N~ 1 ! GOSUB 1 000 « N=N+ 1 s F 
=F*|s|!RETURN ELSE F=1 s RETURN 
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In de serie MSX TRUUKS EN TIPS worden korte, krachige oplossingen 
gepresenteerd voor uw programmeerproblemen. Geen flauwekulletjes 
maar stukjes programmatuur die u nogdig heeft en die u zo kunt toe- 
passen. 

Dat in MSX-basic de meeste problemen bijzonder effektief zijn aan te 
pakken, bewijst de inhoud van dit boek. 

Wij zijn ons er echter van bewust dat er bij u programmeerproblemen 
leven die in deze serie nog niet werden behandeld. 

Wanneer u een of meer van deze problemen heeft en u daarbij ver- 
moedt dat er heel veel mede-amateurs met dezelfde problemen zitten 
(en dat tweede is natuurlijk erg belangrijk), zet uw programmeer- 
problemen dan eens op papier en stuur ze naar: 

Uitgeverij Stark-Texel 

Postbus 302 
1794 ZG Oosterend 

en wie weet wordt uw probleem in een volgend deel vakkundig opge- 
lost... , 

Als uw vraag of probleem in de vorm van een programma-oplossmg 

door ons wordt uitgewerkt, krijgt u het komplete boekje toegestuurd 
met daarbij nog een aardige verrassing. 


Tot ziens in deel 2 ... 



